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Abstract 


Kimball,  Bruce  A.  1986.  A Modular  Energy  Balance  Program  Including  Subroutines 
for  Greenhouses  and  Other  Latent  Heat  Devices.  U.S.  Department  of  Agriculture, 
Agricultural  Research  Service,  ARS-33,  illus.  360  P- 

A computer  program  is  presented  for  simulating  the  thermal  performance  and  the 
energy  and  water  uses  of  greenhouses.  The  program  is  modular  and  has  many  sub- 
routines, each  of  which  simulates  some  energy-related  device  using  energy  balance 
techniques.  Latent  heat  exchange  is  also  included  so  that  evaporation  from  plants, 
soil,  cooling  towers,  and  other  objects  can  be  accounted  for.  The  list  of  devices 
includes  greenhouses,  thermostats,  pumps,  fans,  flow  tees,  sensible  heat  exchangers, 
latent  plus  sensible  heat  exchangers,  solar  collectors,  tanks,  heaters,  night  sky 
radiators,  evaporative  air  coolers,  rock  beds,  curtain  heat  exchangers,  and  passive 
storages.  A mathematical  model  is  presented  for  each  device. 

The  program  is  highly  versatile  because  the  user  can  specify  at  run  time  those 
devices  he  or  she  wishes  to  include  in  a particular  run  and  how  they  are  connected 
(wires,  pipes,  ducts).  The  program  has  virtually  no  size  limit  on  most  computer 
systems  because  the  individual  subroutines  can  be  stored  on  disk  as  overlay 
modules.  Detailed  instructions  for  using  the  program  are  included,  along  with 
examples  of  a simple  greenhouse  system  and  of  a solar  greenhouse  system. 

Keywords:  energy  balance,  energy  storage,  energy  use,  computer  program,  cooling, 
greenhouse,  heat  exchanger,  heating,  modeling,  modular  program,  night  sky  radiator, 
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A Modular  Energy  Balance  Program  Including 
Subroutines  for  Greenhouses  and  Other  Latent 
Heat  Devices 

By  Bruce  A.  Kimball^ 

Introduction 

To  conserve  energy  and  water,  new  greenhouse  designs  and  methods  for  heating 
and  cooling  greenhouses  are  needed.  Computer  models  of  greenhouses  and  of 
heating  and  cooling  devices  can  be  used  to  help  assess  the  feasibility  of  the  new 
designs.  This  manual  presents  a modular  energy  balance  model  (MEB)  which  com- 
bines submodels  of  greenhouses  with  submodels  of  many  other  energy-related 
devices.  The  MEB  model  is  versatile  because  the  user  can  connect  the  submodels 
needed  for  particular  heating  and  cooling  systems  at  the  time  he  or  she  runs  the 
main  MEB  program. 

Energy  balance  models  of  greenhouses  have  been  published  by  Businger  {1963), 
Walker  (1965),  Selcuk  {1970),  Takakura  et  al.  {1971),  Iwakiri  {1971),  Kimball  {1973), 
Garzoli  and  Blackwell  {1971,  1973,  1981),  Maher  and  O’Flaherty  {1973),  Olszewski 
and  Trezek  {1976),  Takami  and  Uchijima  {1977),  Froehlich  et  al.  {1979),  Landsberg  et 
al.  {1979),  Kindelan  {1980),  Silveston  et  al.  {1980),  van  Bavel  et  al.  {1981),  Duncan  et 
al.  {1981),  Chandra  et  al.  {1981),  Avissar  and  Mahrer  {1982),  and  Glaub  and  Trezek 
{1981).  These  models  differ  greatly  in  complexity,  but  even  the  more  complex  ones 
were  not  developed  with  the  objective  to  allow  their  easy  coupling  to  energy-related 
devices,  particularly  devices  which  may  also  be  complex. 

In  about  1976  I began  to  add  cooling  tower  and  water  tank  models  to  my  first 
greenhouse  model  (Kimball  1973).  I soon  realized  that  a method  was  needed  to 
easily  couple  and  uncouple  these  new  models  from  the  greenhouse  model.  For- 
tunately, at  about  this  time,  Klein  et  al.  {1975,  1976)  published  their  transient  simula- 
tion program  called  TRNSYS.  The  TRNSYS  program  consisted  of  a main  executive 
FORTRAN  program  and  a set  of  subroutines.  Each  subroutine  modeled  a particular 
device,  such  as  a solar  collector,  thermostat,  and  pump.  The  program  was  highly  ver- 
satile because  the  user  could  specify  at  run  time  the  devices  he  or  she  wished  to 
include  in  a particular  run  and  how  they  were  to  be  connected  to  each  other  (wire, 
pipes).  The  main  program  kept  track  of  the  interconnections  and  iterated  and  tested 
for  convergence. 

In  spite  of  these  virtues,  I could  not  use  TRNSYS  directly  because  it  was  too  big  to 
fit  the  USWCL  minicomputer  (32K  memory).  However,  because  the  actual  modeling 
was  done  in  subroutines,  the  main  program  was  relatively  small.  This  feature  made  it 
possible  to  write  the  MEB  program,  which  incorporates  TRNSYS  concepts.  It  differs 
from  TRNSYS  first  by  being  “lean”  and  secondly  by  having  all  the  subroutines 
stored  as  overlays  on  a disk  storage  device.  This  modular  organization  allows  a por- 
tion of  computer  memory  to  be  dedicated  to  the  main  program  and  the  remainder  to 
be  used  for  subroutine  modules.  The  main  program  can  call  in  subroutine  modules 
from  the  disk.  Many  devices  can  be  included  in  a simulation,  but  the  subroutine  for 
only  one  device  needs  to  be  in  memory  at  one  time. 


^ Soil  scientist,  U.S.  Water  Conservation  Laboratory,  Western  Region,  Agricultural  Research  Service,  U.S. 
Department  of  Agriculture,  4331  E.  Broadway  Road,  Phoenix  AZ  85040. 
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Another  difference  from  TRNSYS  is  that  most  of  the  subroutines  included  with  MEB 
handle  flows  of  latent  energy.  Klein  et  al.  were  primarily  interested  in  solar  heating 
applications  with  sensible  energy  exchange.  The  necessary  fluid  stream  information 
included  only  temperature  and  mass  flow  rate.  However,  in  greenhouses  and 
evaporative  cooling  devices,  much  of  the  energy  moves  as  water  vapor  or  latent  heat. 
Therefore,  the  fluid  stream  information  for  these  devices  includes  humidity  ratio  in 
addition  to  temperature  and  mass  flow  rate.  Another,  minor,  difference  from  TRNSYS 
involves  the  philosophy  of  simulating  discrete  on-off  control  devices  such  as  thermo- 
stats. If  the  device  switches  at  a set  point,  under  some  conditions  the  heater  or  other 
device  controlled  by  the  thermostat  will  be  turned  off  and  on  for  successive  iterations 
with  no  convergence.  The  solution  used  by  TRNSYS  is  to  “stick”  the  thermostat  in 
one  position  or  the  other  after  a few  iterations.  In  MEB  the  type  4 and  type  22 
thermostats  model  control  devices  as  continuous  rather  than  discrete  devices.  The 
temperature  (or  other  input  variable)  is  compared  with  the  set  point  specified  by  the 
user.  Values  of  the  deviation  from  the  set  point  of  the  control  variable  from  previous 
iterations  are  used  to  compute  a new  corrected  value  of  the  control  variable  with  a 
Newton-type  iteration  equation.  Because  the  output  from  the  MEB  thermostat  varies 
continuously  from  0 to  1 , the  output  of  pumps,  heaters,  and  other  on-off  devices  can 
be  only  a portion  of  their  given  capacity.  This  corresponds  to  the  average  of  a real 
situation  in  which  a device  is  cycled  on  and  off  every  few  minutes.  Equally  important, 
stable  simulation  is  produced. 

The  overall  program  organization  and  use  is  described  in  the  next  section.  Then, 
detailed  descriptions  of  each  device  submodel  are  given,  followed  by  some  specific 
numerical  examples.  Nomenclature  and  file  names  are  listed  in  appendixes  A and  B 
for  the  actual  program  listings  provided  in  appendix  C.  Next,  some  convenient  coding 
forms  are  provided  in  appendix  D,  followed  finally  by  detailed  lists  of  codes  for  all  the 
devices  in  appendix  E. 


Description  of  Program 


Individual  Devices  The  MEB  program  is  organized  around  subroutines  which  simulate  the  performance 

of  various  types  of  energy-related  devices.  To  simulate  the  performance  of  an  indi- 
vidual device  at  a particular  time,  each  subroutine  requires  various  pieces  of  informa- 
tion. Some  information  normally  varies  during  the  course  of  a simulation  (such  as  out- 
door air  temperature)  and  is  supplied  to  the  subroutine  as  inputs.  Other  information 
normally  does  not  vary  during  the  course  of  a single  simulation  but  needs  to  be 
varied  from  one  simulation  to  another  (such  as  fan  capacity),  and  this  information  is 
supplied  as  parameters.  The  simulation  subroutines  modify  the  inputs  or  generate 
new  information,  and  these  are  returned  as  outputs.  The  parameters,  inputs,  and  out- 
puts are  all  numbered  sequentially  for  identification. 

For  example,  one  device  is  a type  18  evaporative  air  cooler,  which  is  illustrated  in 
figure  1 and  described  in  detail  in  the  “Individual  Models  of  Devices.”  Inputs 
1 through  5 are  the  entering  dry  bulb  temperature  (°C);  Mj,  the  entering  mass 
flow  rate  (kg/s)  (this  input  is  unused):  the  entering  wet  bulb  temperature  (®C);  y, 

a control  variable  from  a thermostat  or  similar  device;  and  P,  the  barometric  pressure. 
Parameters  1 and  2 are  the  maximum  mass  flow  rate  the  blower  in  the  cooler 
can  produce,  and  ij,  the  saturation  efficiency.  The  type  18  cooler  computes  outputs 
1,  2,  3,  and  4:  the  exit  dry  bulb  temperature  (°C)  computed  from  T^j,  T^g,  and 

Tj:  Mq,  the  exit  mass  flow  rate  (kg/s)  computed  as  the  product  of  /W^^ax  7- 
the  exit  humidity  ratio  (kg  HgO/kg  air)  computed  from  T^g,  and  P;  and  E,  the 
evaporation  rate  (kg/s)  computed  from  T^,,  T^g,  P,  M^,  and  VJ^. 
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Figure  1. 

Functional  diagram  of  a type  18  evaporative  air  cooler. 
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Building  a System 


The  MEB  program  is  designed  to  facilitate  connecting  individual  devices  like  the  type 
16  heater  into  a complete  energy  system.  For  example,  figure  2 shows  eight  devices 
connected  together  to  form  a conventional  greenhouse  with  a heater.  The  type  15 
greenhouse  has  a built-in  evaporative  cooler.  The  type  22  multistage  thermostat  con- 
trols the  heater  and  the  evaporative  cooler,  based  on  the  greenhouse  air 
temperature.  Three  of  the  devices  are  conceptual  rather  than  physical.  The  type  1 
reader  reads  weather  data  for  each  time  step.  The  type  3 printer  writes  the  desired 
output  data  into  a disk  file  or  printer.  The  type  2 integrator  integrates  its  inputs  by  the 


r — 1 


Figure  2. 

Information  flow  diagram  for  a conventional  greenhouse 
illustrating  how  eight  individual  device  models  are  con- 
nected to  form  a complete  system. 
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Integration  of  Differential 
Equations 


trapezoid  rule.  In  the  example,  the  two  thermostat  outputs  are  being  integrated  with 
time,  which  yields  the  total  operating  times  of  the  heater  and  the  evaporative  cooler. 
Then,  knowing  the  power  ratings  of  these  devices,  their  operating  expenses  are 
obtained. 

Every  subroutine  model  is  assigned  a type  number  at  the  time  it  is  incorporated  into 
MEB.  The  type  number  is  the  index  to  information  stored  in  MEB  about  the  number 
of  parameters,  inputs,  and  so  forth,  for  each  subroutine.  The  procedure  for  adding 
new  subroutines  will  be  discussed  in  a later  section. 


Each  subroutine  in  figure  2 also  has  a unit  number,  which  is  chosen  by  the  user  at 
the  time  each  simulation  is  performed.  The  unit  numbers  determine  the  order  in 
which  the  various  subroutine  models  are  to  be  called.  The  unit  numbers  can  be 
assigned  in  any  order  but,  to  speed  convergence,  should  be  in  the  primary  direction 
of  information  flow.  In  figure  2,  for  example,  the  reader  is  numbered  first  and  the 
printer  last.  Also,  note  the  logical  direction  of  information  flow  in  the  greenhouse- 
thermostat-heater  loop. 

Figure  2 is  simplified  so  that  only  the  most  important  information  flows  are  shown.  A 
type  1 reader  actually  has  23  outputs,  and  a type  15  greenhouse  has  8 or  more 
inputs  and  6 outputs,  as  described  in  “Individual  Models  and  Devices”  and 
appendix  E.  When  building  a system,  it  is  helpful  to  construct  a diagram  like  figure  2 
to  visualize  the  information  flow,  even  if  some  of  the  lesser  information  flows  are 
omitted  to  reduce  clutter.  For  the  complicated  devices,  code  sheets  must  be  used  to 
assign  each  input  to  the  output  of  some  device.  Because  the  devices  are  FORTRAN 
subroutines,  every  input  must  be  connected  to  some  output  except  for  a few  special 
cases.  The  outputs,  on  the  other  hand,  can  dangle  and  do  not  have  to  be  connected 
to  another  input. 


The  performance  of  most  devices  can  be  modeled  by  algebraic  equations  (linear  and 
nonlinear),  and  these  are  easily  handled  by  MEB.  Some  devices,  particularly  those 
that  store  energy,  are  modeled  by  differential  equations  which  must  be  integrated 
with  time.  For  example. 


where 


T 

t 

K 

C 


temperature  of  a soil  layer 
time 

thermal  conductance 

heat  capacity 

soil  surface  temperature 


The  integration  required  is  quite  different  from  the  simple  accumulation  done  by  a 
type  2 integrator.  Following  Klein  et  al.  {1976),  MEB  can  integrate  such  an  equation 
by  using  a modified  Euler  method.  It  is  a predictor-corrector  method  using  the  Euler 
method  for  predicting  step  and  the  trapezoid  rule  for  correcting  them.  At  time  t,  the 
values  of  the  dependent  variables  are  predicted  using  their  values  and  the  value  of 
their  derivatives  from  the  previous  time  step: 

Tp=T^  + At{dT/d% 
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where  Tp  = predicted  value  of  a dependent  variable  at  time  t 
Tq  = value  of  the  dependent  variable  at  time  t-At 
At  = increment  of  time  between  simulation  times 
{dTIdt)^  = value  of  the  derivative  at  time  t-At 

Then,  the  derivatives  dT/dt  are  predicted  as  a function  of  t,  Tp,  and  the  solutions  to 
the  algebraic  equations  in  the  models: 

dT 

— = f{Tiy,  algebraic  equations) 
at  ^ 

The  corrected  values  of  the  dependent  variables,  T^,  are  next  obtained  by  applying 
the  trapezoid  rule: 


Overall  Program 
Organization 


Tc=To  + Af[(cyr/c/f)o  + (dT/df)]/2 
A test  for  convergence  is  then  made.  If 


where  e is  the  error  tolerance,  then  convergence  is  achieved,  and  T = T^.  Otherwise, 
Tp  is  set  equal  to  Tp  and  the  last  two  equations  are  repeated.  The  procedure  is 
repeated  until  convergence  is  attained  or  until  the  maximum  allowable  number  of 
iterations  is  exceeded. 


This  integration  method  is  unstable  if  the  value  of  the  time  step  chosen  by  the  user 
is  too  large.  The  maximum  stable  time  step  can  be  estimated  from  the  coefficients  in 
the  differential  equation.  For  equations  of  the  form 

C^  = K,{T-A)  + K2{T-B)  + a 


where  C is  a thermal  capacitance  (J/®C) 

T is  temperature  (®C) 
t is  time  (s) 

K2  are  thermal  conductances  (J/s®C) 

A,  B,  C are  constants  (with  respect  to  this  equation) 


this  integration  algorithm  is  stable  if 


Af< 


C 

/C1+K2 


Smaller  time  steps  than  this  maximum  should  also  be  tested  to  see  whether 
significantly  different  results  are  obtained.  If  they  are  obtained,  the  smaller  time  step 
should  be  used  because  the  corresponding  values  are  more  accurate. 


An  overall  picture  of  the  computational  sequence  of  the  MEB  program  is  shown  in 
figure  3.  First  the  program  reads  run  information  supplied  by  the  user  (format  to  be 
discussed  later).  This  includes  the  starting  time,  the  time  step,  the  number  of  times 
simulations  are  to  be  done,  and  the  number  of  units.  Then,  for  each  unit  in  turn  the 
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Figure  3. 

Overall  flow  diagram  of  the  modular  energy  balance 
(MEB)  program. 
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program  reads  the  parameters  for  that  unit,  the  unit  and  output  numbers  of  the  other 
units  connected  to  the  inputs  of  that  unit,  the  initial  values  of  outputs  for  that  unit, 
and  the  initial  values  of  dependent  variables  requiring  integration  for  that  unit. 

Once  the  initialization  is  completed,  the  program  sets  up  four  major  computational 
loops.  As  shown  in  figure  3,  the  outer  loop  is  the  time  loop  that  steps  the  program 
through  the  desired  simulation  times.  The  next  loop  is  the  derivative  loop.  It  inte- 
grates differential  equations  using  the  method  discussed  in  the  previous  section. 
Inside  the  derivative  loop  is  the  output  loop.  This  loop  solves  the  algebraic  equations 
of  the  component  models  and  iterates  until  the  outputs  no  longer  change.  In  the 
innermost  loop,  each  unit  is  considered  in  sequence.  The  subroutine  model  cor- 
responding to  the  type  of  each  unit  is  called.  If  the  inputs  to  a particular  unit  haven’t 
changed  since  the  previous  iteration,  that  unit  is  skipped  to  save  computation  time. 


The  advantages  of  the  modular  structure  can  be  seen  in  figure  3.  The  main  program 
is  relatively  small,  but  several  of  the  more  than  20  type  subroutines  are  fairly  large. 
The  total  package  requires  about  100,000  words  of  storage,  more  than  available  from 
minicomputers.  Using  disk  overlays,  however,  only  one  type  subroutine  needs  to  be 
in  memory  at  a time.  If  the  type  subroutine  for  a particular  unit  is  not  in  memory,  the 
overlay  module  containing  that  subroutine  is  loaded  into  memory  from  the  disk  as 
needed.  Details  of  overlay  commands  are  discussed  in  a later  section. 


Individual  Subroutine 
Models  of  Devices 


The  first  line  of  an  individual  subroutine  model  of  a device  will  simply  be  the 
subroutine  statement  with  a name,  that  is. 


SUBROUTINE  DEVICE 


Information  is  passed  from  main  program  to  the  subroutines  and  back  again  by 
variables  stored  in  COMMON.  The  first  COMMON  statement  is 

COMMON  TIME,  XIN(40),  OUTI(80),  Tl(10),  DTDTI(IO),  PARI(99) 

Before  calling  an  individual  subroutine,  the  main  program  stores  the  inputs  and  the 
parameters  for  it  in  the  XIN  ( ) and  PARI  ( ) arrays.  Thus,  if  the  first  parameter  is 
an  area  and  the  first  input  is  an  air  inlet  temperature,  the  subroutine  would  probably 
have  statements  like  the  following  near  its  beginning; 

AREA  = PARI(1) 

TAI  = XIN(1) 

The  outputs  are  returned  to  the  main  program  in  the  OUTI  ( ) array;  so  if  the  first 
output  is  an  air  outlet  temperature,  the  subroutine  would  probably  have  a statement 
like  the  following  near  its  end: 

OUTI(1)  = TAO 

Similarly,  for  those  devices  having  derivatives,  predicted  (and  corrected)  values  of 
dependent  variables  are  supplied  to  the  subroutine  in  the  Tl(  ) array,  and  the  values 
of  the  derivatives  must  be  returned  in  the  DTDTI(  ) array.  Thus,  somewhere  in  the 
subroutine,  a statement  such  as  the  following  must  appear: 

DTDTI(I)  = A * (B  - C)  * Tl(1) 
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If  the  value  of  the  dependent  variable  is  also  desired  as  an  output,  a statement  such 
as  the  following  can  be  included  in  the  subroutine: 

OUTI(3)  = Tl(2) 

Note  that  the  output  number  does  not  have  to  be  the  same  as  the  dependent 
variable  number  but  that  the  derivative  numbers  and  the  dependent  variable  numbers 
must  correspond. 

The  value  of  time  is  also  available  to  the  subroutine  from  the  first  COMMON  line.  If 
needed,  the  following  second  COMMON  line  can  be  included: 

COMMON  ETOL,  UMAX,  NTIMES,  FTRACE,  STRACE,  DELT,  HDELT 

This  provides  the  value  of  the  error  tolerance,  maximum  number  of  iterations,  total 
number  of  simulation  times,  time  of  first  trace,  time  to  stop  trace,  the  time  increment 
(seconds)  and  half  the  time  increment,  respectively. 

Variable  device  (or  logical  unit)  names  for  the  MEB  input  device,  the  type  1 reader 
input,  the  MEB  output  file,  and  the  user’s  terminal  are  stored  in  labeled  COMMON 
called  FILES: 

COMMON/FILES/INDATA,  KLMIT,  KOUT,  LUTERM 

If  a user  wishes  to  write  a message  and  print  some  data  using  the  trace  feature,  a 
statement  like  the  following  could  be  included: 

IF  (TIME.GE.FTRACE.AND.TIME.LE.STRACE)WRITE(KOUT,  123)  T1,  T2 
123  FORMAT  (1H  , “INLET  AND  OUTLET  TEMPS  ARE”,  2E13.6) 

If  the  subroutine  must  store  additional  information  from  one  call  to  the  next,  labeled 
COMMON  statements  can  be  used.  Such  a statement  in  the  main  program  and 
another  in  the  subroutine  will  store  the  information  even  if  the  subroutine  is  overlaid 
by  another  between  calls. 
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Instructions  for  Use 


Run  Information  File  The  MEB  program  first  reads  information  about  each  simulation  run  from  the  run 

information  file  called  MEBDI  (modular  energy  balance  data  in).  Coding  forms  for  this 
file  are  presented  in  appendix  D so  that  they  may  be  photocopied  for  use.  The  data 
are  separated  by  commas  in  a free-format  style.  If  there  are  too  many  values  to  fit  on 
a particular  line,  a slash  (/)  may  be  used  instead  of  a comma  at  the  end  of  the  line 
in  order  to  continue  on  the  next  line.  The  file  structure  and  the  free-format  style  are 
compatible  with  Hewlett-Packard  Company  equipment.  In  subroutine  INIT,  which 
reads  file  MEBDI,  an  asterisk  (*)  is  used  in  place  of  format  statement  numbers  to  in- 
dicate free  format.  Alternate  instructions  for  Data  General  Corporation  equipment  are 
available  from  the  author  upon  request.  Other  users  have  versions  running  on  a 
Digital  Equipment  Corporation  VAX  computer. 

The  first  line  in  the  coding  form  for  file  MEBDI  (appendix  D)  provides  for  entering  a 
title  of  up  to  80  alphanumeric  characters  (except  no  commas  are  allowed).  It  will  be 
printed  in  the  output  file  as  a label  for  the  particular  run.  The  second  line  must  con- 
tain the  file  name  or  device  code  from  which  weather  data  are  to  be  read  by  the  type 
1 reader.  Similarly,  the  third  line  must  be  the  file  name  or  device  code  where  the  out- 
put is  to  be  written.  For  exmple,  if  a test  of  the  type  15  greenhouse  were  to  be  made 
using  1 1 December  1 980  weather  data  from  a file  called  D01 2 and  the  output  were 
to  go  to  a line  printer  whose  device  code  is  6,  the  first  three  lines  of  file  MEBDI 
could  be 

TYPE  15  SIMPLE  GREENHOUSE  TEST  WITH  11DEC80  DATA 

D012 

6 

The  fourth  line  of  file  MEBDI  must  contain  the  actual  year  (last  two  digits),  month, 
day,  and  hour  (fractional  hours  permitted)  corresponding  to  the  initial  simulation  time 
(TIME  = 0).  These  data  are  used  by  the  type  1 reader  to  select  data  desired  for  the 
first  simulation  time.  Thus,  the  user  can  skip  data  at  the  beginning  of  the  file,  if 
desired,  in  order  to  begin  the  simulation  with  data  obtained  later  than  at  time  zero. 
The  fourth  line  must  also  contain  the  time  step  (hours),  the  number  of  times  the 
simulation  is  to  be  done,  and  time  of  the  first  trace  and  the  time  to  stop  the  trace. 
When  the  simulation  time  is  within  the  band  defined  by  the  first  and  last  trace  times, 
MEB  will  print  the  inputs,  outputs,  and  derivatives  for  every  iteration.  Using  this  trace 
is  helpful  for  debugging  new  device  subroutines  and  for  finding  connection  errors 
when  building  complicated  systems.  However,  the  output  may  be  voluminous,  so  the 
user  should  be  prepared  to  interrupt  the  program  after  just  a few  iterations. 

The  trace  times  are  elapsed  times  in  hours  (can  be  fractional)  with  respect  to  the  ini- 
tial time  (TIME  = 0.0).  To  trace  the  initial  hour  through  the  fourth  hour,  the  first  trace 
is  set  equal  to  0.0  and  the  last  trace  equal  to  4.0.  For  no  trace,  the  user  should  set 
both  to  - 1 .0  or  a similar  nontime.  For  example,  suppose  total  daily  time  for 
operating  a heater  is  needed  in  the  type  15  greenhouse  test.  The  test  could  start  at 
midnight  of  10  December,  which  is  time  zero  for  11  December,  and  the  simulation 
would  run  until  midnight  of  1 1 December.  This  simulation  will  cover  24  hours,  and 
using  data  at  1 .0-hour  intervals,  25  lines  of  weather  data  will  be  required.  The  reason 


10 


for  the  one  extra  set  of  observations  is  that  at  each  time,  MEB  only  computes  rates, 
which  then  have  to  be  integrated  by  the  type  2 integrator  between  time  steps. 
Therefore,  every  simulation  involving  integration  must  include  at  least  one  time 
beyond  the  initial  zero  time.  Now,  further  suppose  that  a trace  is  needed  for  zero 
time  only.  The  fourth  line  of  the  MEBDI  file  would  be 

80,  12,  11,  0.0,  1.0,  25,  0.0,  0.0 

The  fifth  line  in  the  MEBDI  file  is  the  number  of  units  in  the  system.  Then,  for  each 
unit  in  sequence  the  file  must  contain  the  device  type,  parameters,  inputs,  initial  out- 
put values,  and  initial  values  of  the  dependent  variables  in  differential  equations, 
which  are  called  TYPE,  PAR,  IN,  OUT,  and  T,  respectively,  on  the  coding  form  for 
file  MEBDI.  For  the  parameters  line,  the  user  simply  refers  to  the  code  sheet  for  the 
particular  device  type  (appendix  E)  and  supplies  values  for  each  parameter  for  this 
particular  simulation  run.  Some  devices  have  a variable  total  number  of  parameters, 
and  their  first  parameter  is  the  total  number  of  parameters.  For  these  devices,  the 
first  parameter  must  be  separated  from  the  second  by  a carriage  return  rather  than  a 
comma  so  that  it  appears  on  a line  by  itself.  For  example,  the  first  two  lines  of  infor- 
mation about  a type  16  heater  with  maximum  heating  capacity  of  7,000  W,  mass  flow 
rate  of  0.26  kg/s,  and  water  vapor  generation  rate  of  0.0  kg/s  could  be 

16 

7000,  0.26,  0.0 

The  computer  ignores  extra  values  at  the  ends  of  lines,  so  the  first  two  lines  could 
also  contain  some  extra  information  for  the  user’s  benefit,  such  as 

16,  ELECTRIC  HEATER  WITH  FAN  (UNIT  5) 

7000,  0.26,  0.0 

The  inputs  line  is  more  complicated.  Each  input  consists  of  a pair  of  integer  numbers 
(but  all  numbers  must  be  separated  by  commas  or  slash-carriage  returns).  The  first 
and  second  numbers  in  each  pair  are,  respectively,  the  unit  number  and  the  output 
number  of  the  device  connected  to  that  input.  For  example,  consider  the  inputs  for 
the  type  16  heater,  which  is  unit  5,  in  figure  2.  The  inputs  are  1,  the  dry  bulb 
temperature;  2,  mass  flow  rate;  3,  humidity  ratio  of  the  entering  air  stream;  and  4, 
control  variable.  The  dry  bulb  temperature  is  output  1 from  the  type  15  greenhouse, 
which  is  unit  3.  The  control  variable  is  output  1 from  the  type  22  thermostat,  which  is 
unit  4.  The  mass  flow  rate  for  a type  16  heater  is  somewhat  unusual  because  the 
heater  contains  its  own  fan  and  the  output  mass  flow  rate  does  not  depend  on  the 
input  flow  rate.  Consequently,  input  2 can  be  connected  to  any  output,  even  one 
from  its  own  unit.  Neither  the  type  15  greenhouse  nor  any  other  device  in  this  system 
uses  humidity  ratio  information.  Therefore,  paramter  3 for  this  heater,  which  is  the 
maximum  rate  of  water  vapor  addition,  should  be  zero,  and  input  3 can  be  connected 
to  any  output,  even  one  from  its  own  unit.  Then,  the  input  line  for  this  heater  could 
be 

3,1,  5,2,  5,3,  4,1 

The  outputs  line  consists  of  initial  values  of  the  outputs  to  be  used  for  the  first  itera- 
tion. For  nonlooping  information  flow,  these  initial  guesses  are  not  used.  For  example. 
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in  figure  2,  the  initial  outputs  of  unit  1 , which  is  a type  1 reader,  can  all  be  1 or  zero 
or  whatever.  Because  unit  1 is  called  first,  these  initial  values  will  have  been  replaced 
before  subsequent  units  are  called.  These  values  are  important,  however,  when  there 
are  loops  in  the  connections;  so  the  inputs  of  some  unit  are  connected  to  the  ouputs 
of  another  device  with  a higher  unit  number.  In  figure  2,  inputs  9 and  10  of  the  type 
15  greenhouse,  which  is  unit  3,  come  from  the  outputs  1 and  2 of  the  type  16 
heater,  which  is  unit  5.  Therefore,  a good  guess  should  be  made  of  the  initial  outputs 
1 and  2 of  the  heater;  but  the  other  unused  outputs  can  be  initialized  to  anything. 

For  example,  if  time  zero  is  midnight  in  December,  the  heater  is  probably  operating 
near  capacity.  A 7,000  W heater  with  a 0.26  kg/s  fan  will  increase  the  temperature  of 
an  air  stream  by  about  27®C;  so  if  the  air  entering  the  heater  from  the  type  15 
greenhouse  is  about  15°C,  the  air  will  exit  the  heater  at  about  42®C.  Thus,  the  initial 
outputs  line  for  this  type  16  heater  might  be 

42,  0.26,  0. 

The  derivatives  or  T line  consists  of  initial  values  for  the  dependent  variables  that  ap- 
pear in  differential  equations.  All  of  these  values  are  used,  so  good  data  are  needed. 
However,  the  user  sometimes  may  not  know  what  the  initial  temperature  of  a device, 
such  as  a type  1 1 tank  of  water,  really  would  be  under  actual  operating  conditions. 
For  many  of  these  cases,  a guess  can  be  made  and  then  a preliminary  run  can  be 
made  using  weather  data  for  the  previous  day  repetitively  for  several  diurnal  cycles. 

At  the  end  of  the  preliminary  run,  the  guess  should  have  approached  a value 
representative  of  the  weather  for  the  previous  day,  and  the  user  can  then  use  this 
value  for  the  actual  simulation  run. 

Some  types  of  devices  do  not  have  any  inputs,  and  others  lack  outputs  or  derivatives 
(for  example,  the  type  16  heater,  which  has  no  derivatives).  For  such  devices,  the 
particular  data  line  is  simply  omitted.  The  type  3 printer  has  an  extra  complication. 
After  the  last  input  for  it,  the  next  line  must  be  a string  of  alphanumeric  labels,  with  a 
blank  (or  some  character)  separating  the  labels.  These  labels  will  be  printed  beside 
each  value  printed  by  the  printer,  and  each  must  be  no  more  than  three  characters 
long.  There  must  be  the  same  number  of  labels  as  inputs.  If  there  are  too  many 
labels  to  fit  on  one  line,  they  can  be  continued  on  the  next  line;  but  a carriage  return 
(no  slash)  must  come  between  labels  at  the  end  of  the  first  line. 

Overlays  and  Program  Because  the  size  of  the  main  program  plus  all  the  subroutines  exceeds  the  32K 

Segments  words  of  memory  accessible  to  an  individual  user  of  a 16-bit-word  minicomputer,  the 

program  was  segmented  into  smaller  modules.  Only  the  main  program  plus  another 
module  containing  one  or  more  of  the  subroutines  need  to  be  in  the  computer  at  the 
same  time.  The  other  segments  or  modules  are  stored  on  the  disk,  and  they  are 
called  into  memory  as  needed,  overlaying  a previous  segment.  The  method  to  be 
described  is  specific  for  a Hewlett-Packard  computer  with  an  RTE-IVB  operating 
system.  However,  the  overlay  feature  has  been  implemented  by  several  manufac- 
turers of  minicomputers  with  disk  operating  systems,  and  the  general  concepts  apply. 
Users  of  large  mainframe  computers  or  those  with  “virtual”  memory  do  not  need 
overlays,  and  they  may  delete  statements  which  pertain  to  the  overlays.  These 
statements  are  set  apart  by  COVOVOV  comment  lines  in  the  program  listings 
(appendix  C). 

The  version  of  MEB  presented  in  appendix  C utilizes  four  segments  which  are 
named  MEBVO,  MEBV1 , MEBV2,  and  MEBV3,  using  the  four  DATA  statements  near 
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the  beginning  of  the  main  program.  The  ASSIGN  100  TO  INSTN  statement  which 
immediately  follows  tells  the  Hewlett-Packard  RTE-IVB  system  what  instruction  to  exe- 
cute after  loading  the  initial  program  segment.  The  segment  is  loaded  by  calling  a 
system  subroutine: 

CALL  SEGLD  (MEBVO,  lERR,  INSTN) 

where  lERR  is  a error  code  for  system  problems  encountered  loading  the  segment.  If 
an  error  return  is  made,  the  first  statement  executed  is  the  next  statement  after  the 
CALL  SEGLD  ( ). 

Each  subroutine  could  have  been  made  a segment.  However,  many  of  the 
subroutines  that  model  simple  devices  are  short,  and  there  is  room  for  several  of 
them  in  memory  in  addition  to  the  main  program.  To  avoid  unnecessary  overlaying, 
several  subroutines  can  be  grouped  into  one  segment  so  long  as  the  total  size  of  the 
segment  plus  main  program  does  not  exceed  user  available  memory.  If  a user  plans 
to  repetitively  simulate  a particlular  greenhouse  system,  the  subroutines  required  by 
that  system  should  be  grouped  together  into  as  few  segments  as  possible  using  the 
editor.  The  variable  “IV”  is  used  by  the  main  program  to  check  which  segment  is  in 
memory;  and  if  the  needed  subroutine  is  already  in  memory,  no  segment  load  call  is 
made. 

The  user  must  tell  the  main  program  which  subroutines  are  in  which  segment.  This  is 
done  at  the  end  of  the  BLOCK  DATA  subprogram,  where  the  lUSEG  array  is  initial- 
ized with  a DATA  statement.  In  the  version  presented  in  appendix  C,  ISEG(1)  = 1, 
which  means  that  the  type  1 reader  subroutine  is  in  segment  1 . Similarly,  IUSEG(2) 

= 1 , so  the  type  2 integrator  subroutine  is  also  in  segment  1 . The  first  four  device 
subroutines  are  all  in  segment  1 ; and  then  IUSEG(5)  = 2,  so  the  type  5 greenhouse 
subroutine  is  in  segment  2,  and  so  forth.  Note  that  the  large  subroutine  for  the  type 
14  complicated  greenhouse  is  in  segment  3 all  by  itself. 

Each  segment  requires  a short  main  program  at  its  beginning  which  is 
PROGRAM  MEBV_(5) 

DIMENSION  IPAR(5) 

CALL  RMPAR  (IPAR) 

INSTN  = IPAR(1) 

GOTO  INSTN 
END 

The  blank  in  the  program  segment  name  should  be  assigned  the  segment  number. 
Then  the  (5)  and  the  other  statements  provide  a cumbersome  but  workable  path  back 
to  the  main  program.  This  provision  is  needed  because  after  a segment  is  loaded, 
the  RTE-IVB  operating  system  starts  executing  the  first  statement  of  the  segment. 

After  a user  has  segmented  the  subroutines,  each  segment  and  the  main  program 
must  be  compiled  using  the  command 

FTN4X,  name,  6,  - 

where  name  is  the  file  name  of  the  main  program  or  particular  segment.  Hewlett- 
Packard  uses  the  convention  that  FORTRAN  source  files  should  start  with  an  &;  so 
the  names  of  the  main  program  and  segments  are  &MEBM,  &MEBV0,  &MEBV1, 
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&MEBV2,  and  &MEBV3.  The  FORTRAN  compiler  replaces  the  & with  a % to  name 
the  relocatable  binary  files.  These  % files  are  then  loaded  using  the  command 

LOADR,  MEBLD 


where  MEBLD  is  a file  containing  the  following  commands: 

: OP,  LB 
: RE,  %MEBM 
: SEA 

: RE,  %MEBV0 
: SEA 

: RE,  %MEBV1 
: SEA 

: RE,  %MEBV2 
: SEA 

: RE,  %MEBV3 
: SEA 

The  OP,  LB  specifies  a large  background  program.  The  RE  loads  the  main  program 
or  segment  named  following  the  comma,  and  the  SEA  searches  all  libraries  for  any 
needed  routines. 

To  start  the  MEB  program,  the  user  issues  the  command 
RU,  MEBM 

from  a terminal,  where  MEBM  is  the  file  name  of  the  main  program.  Of  course,  the 
MEBDI  and  weather  data  files  must  be  ready  before  the  program  run  is  started. 

Incorporating  New  Several  changes  need  to  be  made  to  the  main  program,  to  the  BLOCK  DATA 

Component  Subroutines  mEBBD  subprogram,  and  to  subroutine  INIT  when  a new  component  subroutine 

model  is  added  to  MEB.  For  devices  with  a constant  number  of  parameters,  inputs, 
outputs,  and  derivatives,  the  changes  are  straightforward,  as  follows: 

1 . In  the  main  program  (appendix  C),  find  the  computed  GOTO  statement.  If  the  new 
device  is  a type  25,  add  a ,25  to  this  statement. 

2.  Below  the  computed  GOTO,  add  two  statemments  similar  to  those  already  there 
for  other  devices.  If  the  new  type  25  model  is  in  subroutine  DVICE,  the  two 
statements  would  be 

25  CALL  DVICE 
GOTO  310 

3.  Referring  to  the  listing  for  BLOCK  DATA  MEBBD  in  appendix  C,  find  the  DATA 
statement  for  initializing  the  KARTYP  array,  which  stores  the  characteristics  of  the 
various  types  of  devices.  Then,  if  the  new  device  is  a type  25,  set  the  25th  ele- 
ment in  the  P rows  to  the  number  of  parameters,  the  25th  element  in  the  I rows 
to  the  number  of  inputs,  the  25th  element  in  the  O rows  to  the  number  of  outputs, 
and  the  25th  element  of  the  D rows  to  the  number  of  derivatives. 
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4.  Similarly,  find  the  DATA  statement  in  BLOCK  DATA  MEBBD  for  initializing  the 
lUSEG  array,  which  indicates  which  segment  each  subroutine  is  in.  If  the  new 
type  25  device  is  to  be  in  segment  2,  set  the  25th  element  of  the  S rows  to  2. 

5.  In  SUBROUTINE  INIT,  find  the  computed  GOTO  statement.  As  was  done  in  the 
main  program,  add  a ,25  to  the  statement  for  a type  25  device. 

6.  Below  the  computed  GOTO,  add  three  statements  similar  to  those  already  there 
for  other  devices.  These  statements  will  write  a label  in  the  output  for  this  device. 
Typical  statements  are 

25  WRITE  (KOUT,  525)  lUNIT 

525  FORMAT  (/  “ UNIT  ”,  12,  ‘‘  IS  A TYPE  25  NEW  DEVICE  ”) 

GOTO  206 

The  above  six  steps  are  all  that  is  required  to  incorporate  most  new  subroutine 
models.  However,  some  models  may  have  a variable  number  of  inputs,  outputs,  or 
derivatives  (variable  number  of  parameters  will  be  discussed  shortly).  For  such 
models,  other  steps  in  addition  to  step  3,  are  required  for  initializing  the  KARTYP 
array.  For  example,  additional  steps  are  shown  in  the  following  discussion  of  the 
type  5 greenhouse.  This  greenhouse  can  have  variable  numbers  of  inputs  and 
outputs  because  it  can  be  connected  to  none  or  several  other  external  devices  that 
add  sensible  and  latent  heat  to  the  greenhouse  air.  It  can  also  have  variable 
numbers  of  derivatives  and  outputs  becuase  it  can  have  a variable  number  of  soil 
layers.  The  number  of  inputs  is  14  + 3*J,  where  J is  the  number  of  devices.  The  sec- 
ond parameter  is  made  to  be  the  number  of  devices,  and  the  number  of  inputs  is 
computed  from  this  parameter  in  subroutine  INIT.  Note  the  fifth  statement  after  state- 
ment 102: 

IF(KTP.EQ.5)KARTYP(5,2)  = + INT(3.*PAR(IPARF  -h  1)-h.1) 

The  two  5’s  in  this  statement  refer  to  the  type  5.  The  second  subscript  of  KARTYP 
has  the  following  code:  1 , for  parameters;  2,  for  inputs;  3,  for  outputs;  and  4,  for 
derivatives.  For  this  example,  2 is  required.  At  statement  102,  the  parameters  have 
already  been  read  into  the  PAR(  ) array,  and  the  first  parameter  for  the  unit 
being  considered  has  the  subscript  IPARF.  Therefore,  the  number  of  devices,  J,  for 
the  type  5 greenhouse,  which  is  its  second  parameter,  is  found  in  PAR(IPARF  -i-  1). 
Thus,  the  number  of  inputs  is  computed  from 

14  -I-  INT(3.*PAR(IPARF  -i-  1)-i-.1) 

where  the  INT  and  the  .1  convert  from  real  to  integer  variables. 

Similarly,  the  number  of  derivatives  in  the  type  5 greenhouse  is  M,  which  is  its  third 
parameter.  The  value  of  M is  found  in  PAR(IPARF  -t-  2)  in  subroutine  INIT. 

Therefore,  the  appropriate  statement  in  subroutine  INIT  for  computing  the  number  of 
derivatives  for  the  type  5 greenhouse  is  the  sixth  statement  after  statement  102: 

IF(KTP.EQ.5)KARTYP(5,4)  = INT(PAR(IPARF  2)-t-.1) 
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The  number  of  outputs  from  the  type  5 greenhouse  is  22  + M+3*J.  The  value  of  M 
was  just  computed  and  stored  in  KARTYP(5,4).  Therefore,  the  appropriate  statement 
in  subroutine  INIT  for  computing  the  number  of  outputs  for  the  type  5 greenhouse  is 
the  seventh  statement  after  statement  102: 

IF(KTP.EQ.5)KARTYP(5,3)  =22  + KARTYP(5,4)  + INT  (3.*PAR(IPARF  +1)  + .1) 

Similar  statements  can  be  used  for  other  cases,  as  illustrated  by  the  dozen  or  so 
statements  following  statement  102  in  subroutine  INIT. 

For  models  that  have  a variable  number  of  parameters,  the  KARTYP  ( ,1)  array 

must  be  initialized  by  making  the  first  parameter  the  total  number  of  parameters;  and 
this  entry  must  be  put  on  a line  by  itself  in  file  MEBDI  ahead  of  the  other 
parameters.  Then  starting  at  statement  236  in  subroutine  INIT,  there  are  statements 
to  read  this  first  line  and  then  to  use  the  value  read  to  determine  how  many  more 
parameters  to  read  from  the  next  line  or  lines.  To  incorporate  a new  model  with 
variable  parameters,  a GOTO  statement  must  be  added  shortly  after  statement  206  to 
direct  the  program  to  the  special  reading  statements.  As  can  be  seen  for  the  type  5 
greenhouse,  this  statement  has  the  form 

IF(KTP.EQ.5)  GOTO  236 
where  the  5 refers  to  type  5. 

Some  models  may  also  need  to  save  information  from  previous  iterations.  This  can 
be  accomplished  using  a labeled  COMMON  statement  in  the  subroutine  model,  main 
program,  BLOCK  DATA  MEBBD,  and  subroutine  INIT.  The  variables  can  be  intialized 
in  subroutine  INIT  as  was  done  for  the  type  4 thermostat  at  statement  148  and  the 
type  5 greenhouse  at  statement  147.  Here,  variables  are  being  initialized  to  the  initial 
output  values  read  from  the  input  file.  lOUTF  is  the  subscript  which  references  the 
first  output  for  the  unit  whose  data  are  being  read  or  initialized. 


Individual  Models  of  Devices 


Type  1 
Reader 


Type  2 
Integrator 


Type  3 
Printer 


This  subroutine  is  not  a model  of  a device  but,  rather,  a conveyance  for  getting 
weather  information  (or  other  time-dependent  information).  Generally,  a type  1 reader 
will  be  the  first  unit  of  a simulation  system.  The  particular  version  in  this  paper  reads 
data  generated  by  a previous  DECODER  program  for  National  Weather  Service  CD 
144  Airways  data.  This  program  is  similar  to  the  CLIMAT  program  and  the 
subroutines  SUN,  CCF,  and  SOLAD,  described  by  the  ASHRAE  Task  Group  on 
Energy  Requirements  for  Heating  and  Cooling  {1975).  The  DECODER  program  reads 
the  NWS  tape;  performs  conversions  to  SI  units  on  the  dewpoint,  windspeed, 
pressure,  dry  bulb  temperature,  and  wet  bulb  temperature;  and  outputs  these  data 
along  with  relative  humidity  and  humidity  ratio.  The  DECODER  program  also  com- 
putes total  and  diffuse  solar  radiation  and  angle  of  incidence  on  horizontal,  vertical, 
and  latitude  plus  10-degree  surfaces  from  cloud-cover  and  sun-angle  equations  using 
the  model  of  Kimura  and  Stephenson  (7969).  In  addition,  from  temperature,  vapor 
pressure,  and  cloud  cover,  total  sky  radiation  and  8-  to  14-/tm  sky  radiation  are  com- 
puted using  the  method  of  Kimball  et  al.  {1982).  The  National  Weather  Service  has 
recorded  data  at  only  3-  or  1-hour  intervals,  yet  many  simulations  require  smaller  time 
steps  for  integration  stability  (see  “Integration  of  Differential  Equations”).  Therefore, 
the  DECODER  program  also  interpolates  the  weather  service  data  and  generates 
hourly  or  half-hourly  values  using  the  four-point  smoothing  method  of  Snyder  {1976). 

The  sequential  code  for  the  23  outputs  of  this  version  of  a type  1 reader  is  given  in 
appendix  E.  The  particular  input  format  can  be  seen  from  inspection  of  the  FORMAT 
statement  in  the  listing  in  appendix  C. 


Like  the  reader  subroutine,  this  subroutine  is  not  a model  of  a particular  device 
(except  possibly  a watt-hour  meter)  but,  rather,  an  integrator  or  accumulator  of  infor- 
mation with  time.  Using  the  trapezoid  rule,  the  inputs  are  integrated  with  time,  and 
the  computed  integrals  are  the  outputs  corresponding  to  the  inputs  having  the  same 
sequence  number.  Mathematically, 


t 

X,dt 


where  X,  = /th  input,  V,  = rth  output,  = initial  or  reset  time,  t = time  of  current 
simulation,  and  dt  = the  time  increment  (seconds).  As  can  be  seen  from  codes  in 
appendix  E,  the  type  2 integrator  has  three  parameters.  The  first  parameter  is  the 
number  of  inputs  (and  outputs),  and  the  second  is  the  elapsed  time  (hours)  between 
resetting  the  accumulators  to  zero.  The  third  parameter  is  the  unit  number  of  a par- 
ticular integrator.  MEB  uses  this  parameter  to  keep  track  of  the  accumulated  values 
when  more  than  one  type  2 integrator  are  used  in  a simulation. 


As  the  name  implies,  this  subroutine  is  not  a model  of  an  energy-related  device  but 
is  simply  a conveyance  for  getting  information  out  of  the  program  that  can  be  read 
by  the  user.  A type  3 printer  can  handle  up  to  40  inputs  and  has  no  ouptuts  as  far 
as  the  other  components  of  MEB  are  concerned.  However,  as  far  as  the  user  is 
concerned,  this  subroutine  outputs  the  results  of  the  simulation. 
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Type  4 
Thermostat 


As  can  be  seen  from  the  codes  in  appendix  E,  a type  3 printer  has  four  parameters. 
Parameter  1 is  the  number  of  inputs  to  be  printed,  and  parameter  2 is  the  elapsed 
time  (hours)  between  printouts.  Through  parameter  2,  the  user  can  control  how  often 
the  data  are  printed  out,  thus  obtaining  daily  rather  than  hourly  values,  for  instance. 
Parameter  3 is  the  number  of  characters  per  line  of  the  printer.  If  parameter  3 is 
80  or  less,  5 output  values  will  be  printed  per  line;  otherwise  8 values  will  be  printed. 
The  format  used  for  each  value  is  1X,2A2,E12.6,  where  the  1X  produces  a space, 
the  2A2  prints  the  3-character  label  dicussed  in  “Run  Information  File”,  and  the 
E12.6  prints  6 digits  in  a 12-character-wide  exponential  field.  Parameter  4 is  the  unit 
number  of  a particular  printer.  MEB  uses  this  information  to  keep  track  of  the  labels 
when  more  than  one  type  3 printer  are  used  in  a simulation. 

The  type  4 thermostat  compares  a temperature  (or  other  variable)  given  as  input  1 
with  a set  point  temperature,  given  as  parameter  1 , and  then  computes  a control 
variable  whose  value  ranges  from  0.0  to  1 .0,  as  illustrated  in  figure  4.  It  also  has  a 
differential  mode  whereby  the  input  variable  is  computed  to  be  the  difference 
between  inputs  1 and  2,  - T2.  There  are  two  outputs:  output  1 comes  on  with  a 

temperature  decrease  for  controlling  heaters  and  output  2 comes  on  with  a 
temperature  increase  for  controlling  coolers. 

The  logic  of  a real  thermostat  is  simple;  it  is  either  on  or  off.  If  a real  heater  is  too 
small  to  compensate  for  a cold  environment,  the  heater  will  be  on  continuously 
because  the  temperature  is  below  the  thermostat  set  point;  and  under  hot  environ- 
mental conditions,  it  will  be  off  with  the  temperature  above  set  point.  In  the  inter- 
mediate condition,  the  thermostat  will  cycle  the  heater  on  and  off  every  few  minutes 
with  the  temperature  close  to  the  set  point. 

Mathematically,  a thermostat  can  be  described  as  follows: 

T^>Ts,  7h  = 0 
Th=1 

where  7^  is  the  output  control  variable  for  heaters,  is  the  input  temperature,  and 
Tg  is  the  set  point  temperature.  However,  7^  is  poorly  defined  if  = Tg.  Use  of  a 
model  thermostat  that  relies  entirely  on  the  above  two  statements  can  result  in  insta- 
bility when  the  capacity  of  the  heater  is  large  enough  to  maintain  temperatures  at  the 
set  point.  Iterative  simulation  programs  like  MEB  or  TRNSYS  (Klein  et  al.  1976)  will 
turn  the  heater  off  on  one  iteration  and,  when  the  resultant  temperature  is  too  cold, 
will  turn  it  back  on  again  for  the  next.  With  the  heater  on  full,  the  temperature 
becomes  too  warm,  so  the  thermostat  will  turn  the  heater  off  again.  As  a result,  the 
program  will  never  converge. 

The  remedy  used  by  Klein  et  al.  is  to  “stick”  the  thermostat  in  one  position  or 
another  after  a few  iterations.  This  is  all  right  for  controlling  a small  pump  on  a solar 
collector,  which  is  supposed  to  run  continuously  when  the  sun  is  shining  and  be  off 
when  it  is  not.  The  ambiguity  is  limited  to  a fairly  short  duration  near  sunrise  and 
sunset.  Generally,  however,  this  remedy  can  lead  to  significant  errors  because  the 
capacity  of  most  heaters  and  coolers  is  selected  to  maintain  the  temperature  of  an 
air  conditioned  space  at  a set  point  for  long  durations. 
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A more  realistic  remedy  is  used  by  the  type  4 thermostat  model  presented  here.  The 
value  of  the  outputs  from  the  thermostat  can  vary  between  0.0  and  1 .0,  and  all  of  the 


other  device  models  that  depend  on  a thermostatic  control  are  written  to  make  their 
outputs  proportional  to  the  input  control  variable.  Thus,  a type  16  heater  will  have  an 
output  of  one-half  capacity  when  the  control  variable  equals  0.5.  A physical  heater 
that  alternates  between  burning  at  full  capacity  and  being  off  every  few  minutes  is 
modeled  as  burning  continuously  but  at  a fraction  of  capacity. 

One  problem  arises  when  using  average  flow  rates.  The  performance  of  some 
devices,  such  as  heat  exchangers,  changes  nonlinearly  with  flow  rate.  Therefore,  for 
such  devices  the  actual  maximum  flow  rates  must  be  used.  These  actual  flow  rates 
are  the  average  flow  rates  divided  by  the  value  of  the  control  variable  for  the  par- 
ticular pump  or  fan  moving  the  fluid.  Once  the  output  temperatures,  and  so  forth,  for 
the  actual  flow  rates  are  obtained,  they  can  then  be  linearly  scaled  using  the  control 
variable  to  obtain  average  performance. 

INPUTS 


T,  Tg 

J L 

I 2 


PARAMETERS 

1 2 

Ts  — 

1 

TYPE  4 
THERMOSTAT 

Nu^ 

2 

Mode  — *■ 

3 

1 { 

OUTPUTS 


Figure  4. 

Functional  diagram  of  a type  4 thermostat.  Tg  is  the  set 
point  temperature,  is  the  unit  number.  Mode  is  the 
mode  of  operation  (set  = 1 for  absolute  and  = 2 for  dif- 
ferential, T-\  - T2  being  positive),  T-\  is  first  input  variable, 
T2  is  second  input  variable  (used  only  when  Mode  = 2), 
7/^  is  the  control  variable  for  controlling  heaters 
( = 1 when  T-\  < Tg  and  = 0 when  T-\  > Tg  for  absolute 
mode),  and  yg  is  the  control  variable  for  controlling 
coolers  ( = 1 -7/7). 
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The  method  used  to  compute  the  fractional  output  for  proportional  control  is  a 
Newton-type  iteration.  Values  of  the  input  temperature  and  of  the  thermostat  output 
from  previous  iterations  are  stored  in  labeled  COMMON.  The  change  in  input 
temperature  resulting  from  a previous  change  in  the  output  control  variable  is  used  to 
predict  the  value  of  the  control  variable  required  to  achieve  set  point  temperature. 

The  prediction  can  be  written  mathematically  as 


7/  = 7,-1 


SFj 


Type  5 
Greenhouse 


where  y 
F 

S 

i 

/-1 

i-2 


control  output  variable 

deviation  of  input  temperature  from  set  point  temperature, 
-Tg.  (For  differential  mode,  F = {T^  - T2)-^T^) 
step  size 
current  iteration 
previous  iteration 
second  previous  iteration 


The  step  size,  S,  has  been  chosen  to  make  the  algorithm  stable.  When  S was  equal 
to  1 , the  predicted  control  variable  often  alternated  between  0 and  1 on  successive 
iterations,  just  as  the  simple  on  or  off  model  did.  However,  by  making  S alternate  be- 
tween 1.0  and  0.1  on  successive  iterations,  big  steps  are  alternated  with  small  steps. 
As  a result,  the  algorithm  is  much  more  stable  and  generally  will  converge  in  about 
five  iterations  when  the  device  controlled  by  the  thermostat  is  the  only  source  of 
variation  in  the  input  temperature  to  the  thermostat. 


The  type  5 greenhouse  is  shown  schematically  in  figure  5.  Each  arrow  represents  a 
flux  of  energy,  with  the  direction  of  the  arrows  taken  as  positive.  Included  in  the 
analysis  are  the  following  fluxes  of  energy:  Solar,  S;  combined  conduction  and  con- 
vection, C;  infiltration,  /;  natural  ventilation.  A/;  soil,  G;  external  device,  Xf,  and 
evapotranspiration,  \Ej. 

The  type  5 greenhouse  model  is  a compromise  between  the  type  15  simple 
greenhouse  model  and  the  type  14  complicated  greenhouse  model.  The  type  15 
simple  model  is  similar  to  the  models  of  Walker  {1965)  and  Garzoli  and  Blackwell 
{1971,  1973)  in  that  only  one  energy  balance  is  used  and  evapotranspiration  is 
handled  rather  crudely.  The  type  5 greenhouse  model  raises  the  level  of  sophistica- 
tion by  accounting  more  realistically  for  water  vapor  loss  and  solving  for  the  humidity 
ratio  of  the  greenhouse  air;  consequently,  it  is  more  like  the  model  of  Landsberg, 
White,  and  Thorpe  {1979)  or  of  Seginer  and  Livne  {1978).  The  more  sophisticated 
type  14  complicated  greenhouse  is  similar  to  the  models  of  Businger  {1963),  Selcuk 
{1970),  Takakura,  Jordan,  and  Boyd  {1971),  Iwakiri  {1971),  and  Kimball  {1973)  in  that 
individual  fluxes  of  thermal  radiation,  of  sensible  and  latent  heat  convection,  and  of 
conduction  are  computed  between  the  soil  surface,  the  vegetation,  the  greenhouse 
air,  the  inside  of  the  greenhouse  cover,  and  the  outside  of  the  greenhouse  cover.  As 
will  be  discussed  shortly,  many  of  the  transfer  coefficients  in  this  type  5 model  are 
lumped  into  a single  overall  U factor  for  the  conduction  and  convection  loss.  Con- 
siderable sophistication  is  retained,  however,  because  the  U can  be  adjusted  to 
account  for  such  factors  as  thermal  radiation  through  a partially  transparent  cover, 
pulling  a thermal  screen  at  night,  and  using  a powered  circulation  fan.  Provision  is 
also  made  for  collection  of  energy  from  a fluid  roof  (Damagnez  1976),  and  for  storage 
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of  energy  below  the  greenhouse  in  soil  (Dale  et  al.  1979)  or  porous  concrete  (Mears 
et  al.  1977).  This  model  can  simulate  either  a conventional  or  an  energy-conserving 
solar  greenhouse  by  proper  choice  of  parameters  at  run  time. 


The  following  notations  will  be  used: 

A area  (m^) 

C convection  (W) 

D density  (kg/m^) 

E evapotranspiration  (kg/s) 

G conduction  in  soil  or  cover  (W) 

/ infiltration  through  cracks  and  in- 
terstices (W) 

J number  of  external  devices 
K mass  transfer  coefficient  (kg/m^.s) 

L leaf  area  index 

M mass  flow  rate  when  subscript  affixed 
(kg/s);  number  of  soil  layers  when  no 
subscript  affixed 

N natural  ventilation  through  ventilators 
(W) 

P pressure  (kPa)  or  parameter 
S solar  radiation  (W/m^) 

T temperature  (°C) 

U overall  heat  transfer  coefficient 
(W/m2.°C) 

W humidity  ratio  (kg/kg) 

X energy  from  external  device  (W) 

Z soil  depth  (m) 

Subscripts  are  as  follows: 

A on  an  area  basis 
B bottom  or  deep  soil 
E latent  heat  component 
H sensible  heat  component 
/ for  infiltration 
N for  natural  ventilation 
S for  solar  radiation 
T transpiration 
W for  humidity  ratio 

al  inside  air 
ao  outside  air 
c cover  or  roof 
g soil  or  ground 
/■  inside 

j index  for  external  device 
m index  for  soil  layers 
n number  of  the  soil  layer  which  can 
receive  a fluid  stream  from  an  exter- 
nal device 


b coefficients 

c heat  capacity  at  barometric  pressure 
(J/kg.°C)^ 

h heat  tran^r  coefficient  (W/m2.®C) 
k thermal  conductance  (W/m2.®C) 
p water  vapor  pressure  (kPa) 
r resistance  (m^s/kg) 
t time  (s) 

u velocity  of  air  movement  (m/s) 

For  infiltration,  units  are  millimeters 
per  second;  for  natural  ventilation, 
greenhouse  volumes  per  hour 
V greenhouse  volume  (m^) 
a absorptance 
A increment  of 

6 slope  with  respect  to  temperature 
( /°C) 

7 control  variable 

X thermal  conductivity  (W/m.®C) 

X latent  heat  of  vaporization  (J/kg) 
p reflectance 
T transmittance 


o outside 

p for  powered  air  circulation 
V vegetation 

vg  average  of  vegetation  and  soil 
w wall  that  does  not  transmit  solar 
energy  or  change  properties 
X external  device 

0 intercept  or  control  variable  equals  0 

1 refers  to  the  topmost  or  first  member 
of  a series,  such  as  a series  of  soil 
layers  or  coefficients;  or  refers  to  the 
value  of  the  control  variable.  Higher 
numbers  identify  higher  members  of  a 
series. 

Superscripts  are  as  follows: 

* indicates  saturated  condition 
old  from  previous  iteration 
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Energy  and  moisture  balance  equations 

Referring  to  figure  5,  the  energy  balance  equation  for  the  greenhouse  air  is 

“ ^cH  “ ^c£  “ ® 7 = 0 

I I (5-1) 

Similarly,  the  moisture  balance  equation  for  the  greenhouse  air  is 

XE7-+EX£y-/j,E-A/E-/ivE  = 0 (5-2) 

Note  that  in  figure  5 the  evapotranspirational  flux  is  regarded  to  be  entirely  within  the 
greenhouse,  so  it  does  not  enter  the  energy  balance  equation.  The  moisture  balance 
equation,  however,  is  coupled  to  the  energy  equation  because  the  vegetation 
temperature  is  assumed  to  be  equal  to  the  greenhouse  air  temperature.  The  water 
vapor  concentration  inside  the  leaves  is  assumed  to  be  at  saturation  for  this 
temperature. 

An  energy  balance  equation  for  the  roof,  which  may  contain  a solar  energy  absorbing 
fluid,  is 


S^+X^  + C,-C^  = 0 (5-3) 

A quasi-steady  state  is  assumed  to  exist  at  the  time  of  each  simulation.  Heat  storage 
in  the  vegetation  and  benches  is  assumed  to  be  negligible.  The  soil  does  store 
energy,  however,  and  differential  equations  will  be  presented  which  describe  the  flow 
of  energy  in  the  soil  and  to  the  soil  from  external  devices.  These  differential  equa- 
tions are  integrated  using  the  method  inherent  in  the  main  MEB  program  described 
previously.  Of  course,  other  external  devices  connected  to  the  greenhouse  may  also 
store  energy.  Such  external  devices  may  actually  be  located  inside  the  greenhouse 
as  long  as  their  only  important  interaction  with  the  greenhouse  is  to  exchange  energy 
with  the  greenhouse  air. 

Refer  to  the  code  table  in  appendix  E for  parameter  and  input  numbers  of  variables 
that  must  be  given  to  subroutine  GH,  and  bear  in  mind  that  Tg,,  M/g,,  and  7^  are  com- 
puted by  GH  as  the  solution  to  equations  5-1 , 5-2,  and  5-3.  The  individual  fluxes  in 
figure  5 and  equations  5-1,  5-2,  and  5-3  are  defined  and  computed  as  shown 
below. 

Solar  radiation 

The  solar  energy  gain  inside  the  greenhouse,  S,,  is  computed  from 

S/=Vo^s(1-P«/g)  (5-4) 

where  Tg  is  the  transmittance  of  the  greenhouse  cover  for  solar  radiation.  In  a con- 
ventional greenhouse,  xg  varies  daily  and  seasonally  with  sun  angle  and  the  orienta- 
tion of  all  the  cover  surfaces.  These  variations  are  small  compared  to  the  more 
dramatic  effects  of  a shade  cloth  or  fluid  roof  (Damagnez  1976).  Therefore,  in  this 
model,  sun  angle  effects  are  ignored  and  average  daily  values  of  xg  are  used.  For 
most  greenhouses,  the  solar  energy  entering  the  roof  is  predominant  because  the 
solar  energy  entering  a wall  toward  the  sun  is  partially  offset  by  that  leaving  the  op- 


posite  wall;  so  the  a^ea  used  in  equation  5-4  is  the  soil  area,  Ag.  If  a user  wishes  to 
simulate  a greenhouse  with  a reflective  north  wall,  he  or  she  can  make  Tg  greater 
than  1 .0,  in  effect,  increasing  the  solar  energy  collection  area. 

The  effects  of  changing  the  greenhouse  cover  material,  as  with  the  shade  cloth  or 
fluid  roof,  are  handled  by  changing  rg  in  response  to  two  control  variables,  jf  and 
(inputs  7 and  8,  appendix  E),  which  vary  from  0 to  1 and  can  be  the  outputs  of  a 
type  4 thermostat,  type  12  clock,  or  similar  device.  The  transmittance  is  computed 
from 


~ 7c/*7'S00  “7r)7c^S01 


+ 7^(1  - 7c)t5^  0 + 7f7c^S1 1 

where  t^qq  is  the  solar  transmittance  when  there  is  no  fluid  in  the  roof  (7^=0)  and  no 
thermal  screen  (7^  = 0),  t^qi  is  the  transmittance  with  no  fluid  (7^  = 0)  and  with  a 
screen  (7c  = 1)>  is  the  transmittance  with  fluid  (7^=1)  and  no  screen  (7c  = 0),  and 
finally,  is  the  transmittance  with  both  fluid  and  screen  (7f  = 7c  = 1)-  Referring  to 
appendix  E,  Tgoo-  ’’soi-  ^sio  - ^S11  parameters  15,  16,  17,  and  18, 

respectively. 

The  ability  to  change  the  properties  of  the  cover  during  a simulation  makes  the 
model  powerful  and  versatile  but  at  a price  of  having  to  supply  many  more 
parameters.  However,  when  modeling  a conventional  greenhouse,  only  the  value  of 
Tsoo  must  be  correct  because  7501.  7-5.10,  ’"sn  when  = jf  = 0. 

For  the  case  of  the  fluid  roof  (Damagnez  1976),  the  near  infrared  portion  of  the  spec- 
trum is  selectively  absorbed,  but  this  does  not  affect  the  energy  analysis  as  long  as 
the  proper  75^0  ’"sn  used. 

The  solar  energy  absorbed  in  the  cover,  S^,  is  computed  from 

Sc  = ^gSoO;s  (5-6) 

where  is  the  absorptance  of  the  cover  for  solar  radiation.  The  absorptance  is  com- 
puted from  an  equation  analogous  to  that  for  computing  75: 

«s  = c - 7f)(1  - 7c)«S00  + c - 7/)7c«S01 


+ 7^(1  - 7c  )“S1 0 + 7/7c«S1 1 (5“'^) 

where  agoo-  “soi’  <^si0’  ®S11  parameters  19,  20,  21,  and  22  (appendix  E). 

Besides  accounting  for  the  solar  radiation  that  is  absorbed  as  it  first  penetrates  the 
greenhouse  cover,  the  absorptance  values  used  must  also  account  for  any  radiation 
reflected  back  from  the  soil  and  vegetation  and  then  absorbed  in  the  cover. 

Sensible  and  latent  heats  from  external  devices 

The  total  sensible  energy  and  total  latent  energy  added  to  the  greenhouse  air  from 
external  devices  are  the  sums  of  the  energies  added  from  the  individual  devices.  The 
temperature,  T^y;  mass  flow  rate,  M^j]  and  humidity  ratio,  W^j-,  of  each  /th  device  are 
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inputs  to  subroutine  GH.  Then,  the  total  sensible  and  latent  heats,  respectively,  are 
computed  from 


EXHj-'LMxjCg{T^j  Tgj)  (5  8) 

LXEj  = LMxjHWxj-W,i)  (5-9) 

/ j 

The  heat  capacity  of  humid  air  at  constant  pressure,  Cg  (J/kg»°C),  is  computed  from 

Cg  = 1 ,005  + 1 ,859 W/g,°'d  (5-1 0) 

where  lVgy°'^  is  the  humidity  ratio  from  the  previous  iteration.  The  latent  heat  of 
vaporization,  X (J/kg),  is  computed  from 

X = 2.501  X 106  - 2,381  Tg,^'^  (5-11) 

Equation  5-11  was  fitted  to  the  tabular  data  in  List  {1958,  p.  343). 

The  sensible  heat  added  to  the  cover  or  roof  from  an  external  device  is  computed 
from 


X^  = MxcCc[2{Tx,-T,)]  (5-12) 

where  is  the  temperature  of  the  fluid  entering  the  cover  from  the  external  device. 
The  temperature  difference,  is  multiplied  by  2 because  it  is  assumed  that  the 

fluid  in  the  roof  is  not  well  mixed  and  that  is  an  average  cover  temperature 
halfway  across  the  cover. 

Similarly,  sensible  heat  may  be  added  to  one,  the  nth  soil  layer  as  described  by  the 
following  equation: 


Xg  = MxgCxg[2{Txg-Tg,)]  (5-13) 

The  layer  is  specified  by  the  value  of  n in  parameter  4 (appendix  E).  Like  T^,  the 
temperature  Tg^  for  the  nth  layer  is  assumed  to  be  an  average  temperature  halfway 
across  the  greenhouse;  so  the  temperature  change  is  multiplied  by  2.  Equation  5-13 
omits  any  details  about  the  heat  transfer  between  the  fluid  and  soil.  Thus,  it  can  be 
expected  to  apply  to  greenhouses  in  which  the  contact  between  the  fluid  and  soil  is 
as  good  as  that  between  water  and  gravel  in  the  Rutgers  greenhouse  (Mears  et  al. 
1977).  For  fast-moving  air  in  tubes  (Dale  et  al.  1979),  heat  transfer  may  be  slow 
enough  that  a more  complex  equation  is  required.  Also,  latent  heat  transfer  is  not 
included. 

Convection,  conduction,  and  thermal  radiation 

Referring  to  figures  5 and  6,  the  combined  convection  and  thermal  radiation  from  the 
greenhouse,  air,  plants,  and  soil  to  the  greenhouse  cover,  C,,  are  computed  from 

CrA^U,(T„-T,)  (5-14) 
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Similarly,  the  convection  and  thermal  radiation  from  the  greenhouse  cover  to  the  out- 
side, Cq,  is  computed  from 

Co=AaUo{Ta-T^o)  (5-15) 

This  model  also  provides  for  the  side  walls  (or  perhaps  just  an  insulated  north  wall) 
to  differ  in  thermal  conductance  from  the  cover  or  roof;  and  the  combined  convection, 
conduction,  and  thermal  radiation  through  the  walls  is  computed  from 

Cw  = AMTai-Tao)  (5-16) 

The  U's  in  these  equations  are  overall  coefficients  combining  the  effects  of  convec- 
tion, conduction,  and  thermal  radiation.  However,  they  do  not  account  for  the  infiltra- 
tion of  air  through  cracks  and  interstices  around  glass  panes  or  doors.  This  distinc- 
tion is  made  because  different  heat  transfer  mechanisms  are  involved.  Infiltration  in- 
volves an  actual  loss  of  water  from  the  greenhouse,  whereas  convection  and  conduc- 
tion do  not  (although  transpiration  and  condensation  may  move  the  water  around  in- 
side the  greenhouse).  Also,  infiltration  is  more  affected  by  wind-induced  pressure  dif- 
ferences (Okada  and  Takakura  1973)  and  by  the  quality  of  construction,  whereas 
conduction  is  more  influenced  by  the  material  used  for  construction. 


The  overall  heat  transfer  coefficients  for  the  cover  or  roof  (1/^  and  L/,)  depend  on  the 
wind  speed,  the  construction  material  of  the  greenhouse,  the  flow  rate  of  any  fluid  in 


Figure  5. 

Schematic  illustration  of  a type  5 greenhouse  showing 
the  energy  fluxes  considered  by  the  type  5 model. 
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the  cover,  and  the  velocity  of  air  movement  inside  the  greenhouse.  By  adjusting 
and  Uj,  conventional  greenhouses,  fluid  roof  greenhouses,  and  greenhouses  with  ther- 
mal screens  or  other  movable  insulation  can  be  simulated.  The  overall  heat  transfer 
coefficient  for  the  side  walls,  (U^),  on  the  other  hand,  is  assumed  to  be  a constant 
supplied  as  parameter  14.  Referring  to  figure  6, 


Uo  = - 


1 


{Mh^^)  + {Mh,^)  + {Mhf) 


(5-17) 


{MhJ  + {Mh^i)  + (Mhf) 

The  outside  heat  transfer  coefficient,  (W/m2.°C),  is  a surface  conductance 
(ASHRAE  1972,  p.  347)  which  includes  thermal  radiation.  It  varies  with  outside  wind 
speed,  Ugo  (m/s); 


^ao~^1  '^^2^30 


(5-19) 


where  the  coefficients,  b-j  and  b2>  Q'”®  parameters  12  and  13,  respectively.  The  inside 
heat  transfer  coefficient,  hg,  (W/m2.°C),  varies  with  the  size  of  temperature  gradients 
in  the  greenhouse  and  with  the  velocity  of  air  movement  provided  by  any  powered 
circulation  fans.  For  this  model  the  user  supplies  a daytime  (So>10  W/m^)  value. 


Figure  6. 

Schematic  diagram  of  the  thermal  resistances,  r,  and 
conductances,  h,  in  the  cover  of  a type  5 greenhouse. 
The  rgj  and  are  the  inside  and  outside  air  film  resist- 
ances, the  r^j  and  r^Q  are  the  inside-  and  outside-cover- 
material  resistances,  and  the  r/s  are  the  fluid  film 
resistances. 


hgjQ,  for  when  the  fans  are  off  and  another  value,  for  when  they  are  on,  as 
parameters  23  and  24,  respectively.  The  equation  used  is 

^a;  ~ ~ Tp)^a/0 T^p^a/1  (^“20) 

where  jp  (input  9)  is  the  control  variable  for  the  circulation  fans. 

The  fluid  heat  transfer  coefficient,  hf  (W/m2.°C)  from  the  surface  of  the  fluid  to  inside 
the  fluid  is  specified  by  two  values,  hfQ  for  when  no  fluid  is  flowing  and  hf-^  for  when 
fluid  is  flowing,  as  parameters  25  and  26,  respectively.  Then, 

hf  = {^  - jf)  hfQ  + jf  hf-^  (5-21) 

where  yf  (input  7)  is  the  variable  for  controlling  the  fluid  flow.  By  setting  hfQ  equal  to 
a still-air  heat  transfer  coefficient,  the  user  can  simulate  draining  of  the  fluid.  If  both 
hf^  and  hfQ  are  set  equal  to  very  large  values,  say  10,000  W/m^.^C,  then  any 
temperature  change  across  the  fluid  becomes  insignificant.  The  model  would 
therefore  simulate  a greenhouse  with  no  fluid  in  the  roof,  that  is,  one  whose  cover 
properties  are  controlled  by  h^j  and  h^^,  both  of  which  are  discussed  next. 

The  thermal  conductances  h^^  and  h^j,  depend  on  the  properties  of  the  greenhouse 
cover  materials.  Like  xg  and  «§,  they  can  be  changed  during  a simulation  using  the 
control  variable  7^,  which  allows  thermal  screens  or  similar  devices  to  be  opened  and 
closed.  The  conductances  are  computed  from 

^co  ~ ^c^^coO'^  ^cPco^  (5—22) 

^ci  — ~ Tc)^c/0  yc^ch  (5—23) 

where  h^^Q,  h^Q^^,  h^jQ,  and  h^j■^  are  parameters  27,  28,  29,  and  30,  respectively. 

Infiltration 

The  infiltration  of  sensible  energy  and  latent  energy,  respectively,  by  movement  of  air 
through  cracks  and  interstices  in  the  cover  is  computed  from 

lcH  = AchcliTai-Tao)  (5-24) 

lcE  = A^'^KcliWai-Wao)  (5-25) 

where  h^j  (W/m2.°C)  is  the  heat  transfer  coefficient  for  infiltration  and  the  mass 
transfer  coefficient  for  infiltration.  From  the  Lewis  relation  (ASHRAE  1972,  p.  72), 

K,i  = h„lc,  (5-26) 

The  h^i  is  computed  following  Okada  and  Takakura  {1973).  First,  the  average  velocity 
of  air  moving  through  the  whole  cover  area,  u^i  (mm/s  or  (m^  of  air  x lO^/m^  of 
cover)/s),  is  computed: 

^01  = ^3^30  + 1^4  V|Tg,.o'd  - TJ  + bg  (5-27) 


27 


Few  data  are  presently  available  about  the  coefficients,  b’s,  in  equation  5-27. 
However,  it  seems  reasonable  that  they  all  are  wall  properties  and  that  also  might 
be  affected  by  an  inside  circulation  fan.  Therefore,  provision  is  made  for  changing  the 
coefficients  with  the  control  variables  7^  and  yp,  and  they  are  computed  from 


^3  - ~ 7c)^30  ycp3^  (5-28) 

^4  = 0- 70)^540 + tAi  (5-29) 


^5  - (^  - 7c)(^  - yp)^500  ■*■  (^  - 7c)7p^501 

+ 7c  C - 7p)^51 0 + 7c7p55i  1 (5-30) 

where  ^30,  b^Q,  and  b^QQ  are  the  values  of  b^,  b^,  and  b^  corresponding  to  no  ther- 
mal screen  (7c  = 0)  and  no  circulation  fan  (7p  = 0),  and  so  forth.  The  b’s  are  supplied 
as  parameters  31  through  38,  as  listed  in  appendix  E.  After  u^i  is  computed  is  ob- 
tained from 


= (5-31) 

where  the  air  density,  is  computed  from  the  outside  temperature  and  pressure: 

Dao  = PaofiO-287{T^o  + 273.1 6))  (5-32) 

The  infiltration  of  sensible  energy  and  latent  energy,  respectively,  through  the  side 
wall,  doors,  and  so  forth,  is  computed  from 

^wH  = ^w^wli^ai  - ^ao)  (5-33) 

lwE=AJ.K^liWai-W,o)  (5-34) 

where 

i<wi  = hjc^  (5-35) 

The  velocity  of  air  movement  through  the  wall,  (mm/s),  is  computed  from 

+ (5-36) 

Both  bg  and  bj  are  properties  of  the  unchanging  wall  portion  of  the  greenhouse,  but  ' 
bg  can  be  affected  by  an  inside  circulation  fan.  The  constants  bg  and  by  are  j 

parameters  39  and  40,  and  bg  is  computed  from  j 

^8  = (1  - yp)^80  7p^8i  (5-37)  j 

where  bgg  and  bg^  are  parameters  41  and  42.  After  is  computed,  is  obtained 
from  I 

I 

h^,  = u^,c^DJ^,000  (5-38)  ' 


I 
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Natural  ventilation 


Natural  ventilation  of  both  sensible  heat  and  latent  heat  through  ridge,  side,  or  other 
ventilators  is  computed  from 

NH  = hNiTai~T,o)  (5-39) 

NE  = \K^{W^i-W^^)  (5-40) 

As  usual  the  mass  transfer  coefficient  is  computed  from  the  heat  transfer  coefficient 
using  the  Lewis  relation  (ASHRAE  1972,  p.  72) 

K^  = h^/c^  (5-41) 

To  obtain  the  rate  of  air  change  of  the  greenhouse  is  first  computed  from 

+ ^10  '^\Ta°''^-Tao\)yN  (5-42) 

The  Uf,j  is  number  of  volumes  of  greenhouse  air  exchanged  per  hour.  Comparing 
equations  5-27  and  5-42,  the  assumption  is  made  that  the  outside  wind  velocity  and 
the  temperature  difference  between  the  inside  and  outside  air  affect  infiltration  and 
natural  ventilation  in  a similar  functional  way.  The  primary  difference  is  that  natural 
ventilation  is  used  to  deliberately  lower  temperatures  whereas  infiltration  is  a conse- 
quence of  the  failure  of  greenhouse  building  materials  to  form  a hermetic  seal. 
Experimental  measurements  of  bg  (parameter  43)  and  b^Q  (parameter  44)  are  scarce. 
Okada  and  Takakura  {1973)  and  Whittle  and  Lawrence  {I960)  have  provided  about 
the  only  available  data.  The  yf,j  (input  1 0)  in  equation  5-42  is  a control  variable  that 
can  come  from  a type  4 thermostat  or  similar  device.  As  it  varies  from  0 to  1 , it  con- 
trols the  opening  and  closing  of  the  ventilators. 

After  U[^  is  computed,  b/y  is  obtained  from 

'’A/  = ‘^wi'a/OaoCa/3-600  (5-43) 

Soil  heat  flux 

The  heat  flux  at  the  soil  surface  is  computed  from 

Gi=Vi(7’a/-7-gi)  (5-44) 

where  is  the  thermal  conductance  of  the  top  soil  layer  and  Tg^  is  the  temperature 
at  depth  at  the  bottom  of  the  top  soil  layer.  The  Tg^  term  is  dependent  variable  1 
from  the  internal  integrator  of  the  main  program. 

The  soil  heat  flux  at  the  soil  surface  also  depends  on  the  capacity  of  the  soil  for  stor- 
ing heat  and  on  the  magnitude  of  the  soil  heat  flux  in  lower  layers.  It  also  depends 
on  the  amount  of  heat  supplied  to  one  of  the  layers,  the  nth,  from  an  external  device. 
The  user  specifies  which  layer  this  may  be  by  the  value  of  n as  parameter  4. 
Referring  to  figure  5,  the  heat  flux  for  the  mth  layer  is  defined  as 

^m(  ^gm  ~ ^g(m  - 1 ))  (5—45) 
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(5-46) 


and  an  energy  balance  on  the  mth  soil  layer  yields 

^g^Am  ~ - 1 — ^^g)m  = n 

where  the  Xg  is  used  only  for  the  nth  layer.  To  use  the  integration  procedure  outlined 
previously,  the  derivative  with  time  must  be  solved  explicitly.  Upon  substituting  equa- 
tion 5-45  into  equation  5-46  and  rearranging  the  resulting  equation,  the  following  is 
obtained: 


dl 


dt 


am 

~ ~ ^'^g(m  - 1)  ” ^gm)  ~ (^gm  ~ ^g(m  + 1)) 

^Am  '■'Am 


(5-47) 


m jm  = n 


and  subroutine  GH  uses  this  equation  to  evaluate  the  soil  temperature  derivatives. 
Again,  Xg  is  used  only  for  the  nth  layer. 


The  thermal  conductances,  (W/m^-^C)  for  the  various  soil  layers  must  be  given  to 
the  program  as  parameters  51 , 53,  55,  and  so  forth.  The  user  can  calculate  them 
from  the  thermal  conductivity,  (W/m-®C)  and  thickness  AZ^  (m)  of  each  soil  layer 
as 


= (5-48) 

For  the  special  case  of  the  top  soil  layer,  the  must  also  account  for  the  surface 
conductance  of  the  soil-air  interface,  which  is  relatively  low.  Similarly,  the  area  heat 
capacity,  (J/m^-^C),  for  the  various  soil  depths  must  be  given  to  the  program  as 
parameters  52,  54,  56,  and  so  forth.  The  user  can  calculate  them  from  the  specific 
heat,  (J/kg-°C):  density,  (kg/m^);  and  average  thickness  of  the  soil  layers  just 
above  and  below  the  particular  depth: 

^Am  = + 1 ) ) (5-49) 

For  the  special  case  of  the  top  soil  layer,  all  of  the  top  layer  is  included. 

c^i=CiDi(AZi-h(AZ2/2))  (5-50) 

The  temperature  is  assumed  constant  at  a deep  depth.  The  temperature  of  this 
bottom  soil,  Tg,  and  its  thermal  conductance,  kg,  must  be  supplied  as  parameters  49 
and  50. 

Remember  that  the  time  step  used  for  the  simulation  and  the  thermal  properties  of 
each  soil  layer  must  satisfy  the  stability  criterion  (see  “Integration  of  Differential 
Equations”).  For  the  top  layer  of  soil,  usually  the  thinnest,  this  implies  that  At  must 
be  less  than  C;^1/(k.|  +^3). 

Evapotranspiration 

Evaporation  is  assumed  to  occur  from  the  substomatal  cavities  in  the  leaves  of  the 
vegetation  and/or  from  below  the  soil  surface.  The  rate  of  evapotranspiration,  Ej, 

(kg/s)  is  computed  from 

Ej^AgK^W,-WJ  (5-51) 
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where  is  the  humidity  ratio  in  the  substomatal  cavities  of  the  vegetation  and 
below  the  soil  surface.  The  vegetation  and  the  soil  surface  temperatures  are  assumed 
to  be  relatively  close  to  the  greenhouse  air  temperature,  so  can  be  computed  as 
the  saturation  humidity  ratio  at  T^j.  To  facilitate  later  solution  of  equations,  the  equa- 
tion for  the  saturation  humidity  ration  is  linearlized  as  follows  (Kimball  1981): 

+ (5-52) 

where  is  the  slope  of  the  saturation  humidity  ratio  curve.  To  compute  5^*, 

Tetens’  equation  (Murray  1967)  is  used  for  the  saturation  vapor  pressure,  p*  (kPa). 

p*  = 0.61 078exp(1 7.2694T/(T-t-  237.30))  (5-53) 

Using  the  definition  for  W*  (ASHRAE  1972,  p.  99), 


l/V*=  0.621 98p*/(Pao-p*; 

the  slope  of  the  saturation  humidity  ratio  curve  is  derived: 

4,098.03 


= 


dW*  W* 

= M/*(1-t- ) 


dT 


0.62198 


(7-^237.30)2 


(5-54) 


(5-55) 


To  compute  the  8^*  in  equation  5-52,  the  value  of  the  greenhouse  air  temperature 
from  the  last  previous  call  to  subroutine  GH,  is  used  in  equations  5-53,  5-54, 
and  5-55.  Once  8^*  is  computed,  the  value  of  the  saturation  humidity  ratio, 
at  temperature  is  used  to  compute  the  intercept,  Wq,  from  equation  5-52. 


After  the  other  variable  that  requires  more  explanation  is  the  mass  transfer  coeffi- 
cient, Ky  (kg/m2-s).  Following  Monteith  (1964,  1973),  it  is  assumed  that  the  water 
evaporating  in  the  leaves  must  pass  a leaf  stomatal  resistance,  (m2s/kg),  and  a 
series  air  resistance,  r^j.  For  the  soil  surface,  a similar  but  admittedly  less  realistic 
assumption  is  used.  The  soil  surface  is  assumed  to  have  a surface  resistance,  tg 
(parameter  48),  which  also  is  in  a series  with  r^j.  The  overall  vegetation  resistance, 
r^+rgj,  and  the  overall  soil  surface  resistance,  rg  + rgj,  are  assumed  to  be  parallel,  so 


I'ai  + l'v  ^a/  + '’g 


(5-56) 


where  L is  the  leaf  area  index  that  the  user  can  imput  to  the  program  to  change  the 
amount  of  vegetation  in  the  greenhouse  (input  6).  Using  the  leaf  area  index  converts 
leaf  stomatal  resistances  to  crop  canopy  resistances. 


Using  the  Lewis  relation  (ASHRAE  1972,  p.  72),  the  air  resistance  is  computed  from 
the  inside  air  heat  transfer  coefficient,  hg,  (W/m2‘®C). 

^ai  — (5—57) 


where  hg,  is  computed  from  equation  5-20. 
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The  leaf  stomatal  resistance,  (m^s/kg),  is  assumed  to  be  a function  of  the  intensity 
of  solar  radiation  inside  the  greenhouse  (Kimball  1973)-. 


Type  6 
Pump  or  Fan 


/•^  = bii+bi2/(SoTs  + bi3)  (5-58) 

where  b-^^,  b-^2,  and  are  parameters  45,  46,  and  47,  respectively. 

Solving  for  Tgj,  W^j,  and  7^ 

When  equations  5-8,  5-9,  5-12,  5-13,  5-14,  5-15,  5-16,  5-24,  5-25,  5-33,  5-34, 
5-39,  5-40,  5-44,  5-51 , and  5-52,  are  substituted  into  equations  5-1 , 5-2,  and  5-3, 
rearrangement  of  the  resulting  equations  yields  the  following: 

+ t,(-a,u;) 

= Sj  + CgljM^jT^j  + 

+ A,\K^,W^^  + h 

N^ao  + \Kf,W^o  + ^w^w^ao 

+ ^vJ^wi^ao  ao  ^g1  (5—59) 

+ + AfXK^i  + \Kf^  + A^XK^i) 

+ U0) 

= \AgK,Wo  + + A^\K^,W^^  (5-60) 

Ta,{-AcUi) 

+ WJ0) 

+ TJ2M^c^  + A^Ui  + A^U„) 

= S,  + 2M,cJ,,  + A,UJ,,  (5-61) 

Equations  5-59,  5-60,  and  5-61  form  a set  of  three  simultaneous  equations  with 
three  unknowns,  7g,,  Wg,,  and  7^.  They  are  easily  solved  using  Cramer’s  rule.  After 
7g,,  Wg,,  and  7^  are  obtained,  all  of  the  various  fluxes  are  computed  and  made  out- 
puts from  subroutine  GH,  as  listed  in  appendix  E.  The  values  of  the  derivatives  of 
soil  temperature,  dTgJdt,  are  also  computed  using  equation  5-47  and  returned  to 
the  main  program. 

The  type  6 pump  or  fan  is  the  simplest  of  all  the  device  models.  As  illustrated  in 
figure  7,  the  pump  is  characterized  by  specifying  the  maximum  capacity  or  mass  flow 
rate  the  pump  is  capable  of  delivering  as  parameter  1 . Then,  the  flow  rate  out  of  the 
pump,  output  2,  is  computed  as  the  product  of  this  maximum  capacity  and  the  value  of 
a control  variable,  input  4.  Output  1 is  set  equal  to  input  1 , and  output  3 is  set 
equal  to  input  3.  This  permits  fluid  temperature  and  humidity  ratio  information  to  pass 
through  the  pump  without  modification.  For  illustration  purposes  the  mass  flow  rate 
into  the  pump  can  be  given  in  input  2,  but  the  information  is  not  used. 


32 


M 


max 


T, 


PARAMETERS [ 


T 


INPUTS 

Mi  Wi 

i L 


TYPE  6 

PUMP  OR  FAN 


5 


T 

M 


W 


OUTPUTS 


Figure  7. 

Functional  diagram  of  a type  6 pump  or  fan. 


Type  7 
Tee 


Subroutine  TEE  simulates  the  action  of  a tee,  two  types  of  mixers,  or  a flow  diverter 
in  an  air  conditioning  duct  or  fluid  pipe.  The  subroutine  handles  changes  in  humidity 
ratio;  but  if  the  entering  humidity  ratios  are  set  equal  to  zero,  then  only  sensible  heat 
changes  occur  and  the  action  of  a tee  in  a liquid  flow  system  is  simulated. 


The  following  notations  will  be  used:  Subscripts  are  as  follows: 


E enthalpy  (J/kg) 

T temperature  (°C) 

\N  humidity  ratio  (kg/kg) 
m mass  flow  rate  (kg/s) 

7 control  variable  (0  to  1) 


/I  inlet  stream  1 
/2  inlet  stream  2 

01  outlet  stream  1 

02  outlet  stream  2 


The  first  (and  only)  parameter  provided  by  the  user  specifies  the  mode:  1 , tee;  2, 
mixer  with  known  inlets;  3,  mixer  with  known  outlet,  and  4,  flow  diverter.  The  action 
of  subroutine  TEE  for  each  different  mode  will  now  be  discussed.  See  appendix  E for 
the  input  and  output  assignments  for  each  mode. 

Mode  1,  tee 


For  this  mode  two  streams  converge  into  one.  Each  of  the  inlet  streams  has  a 
definite  flow  rate  (inputs  2 and  5,  see  appendix  E),  and  the  outlet  flow  rate  is  the 
sum  of  the  entering  flow  rates: 


m^i  =m,i  +m,-2 


(7-1) 
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The  outlet  humidity  ratio  is  the  flow  weighted  average  of  the  inlet  humidity  ratios 
(ASHRAE  1972,  p.  104). 


Wi^mi^  + W,2mi2 


m 


o1 


Using  equation  7-3,  which  defines  enthalpy  (ASHRAE  1972,  p.  100), 


E=  1 ,0057+  W{2A68  x 10^  + 1 ,8597) 


(7-2) 


(7-3) 


Subroutine  TEE  computes  the  enthalpies  of  both  entering  streams.  Then  it  computes 
the  enthalpy  of  the  outlet  stream  as  the  flow  weighted  average  of  the  inlet  enthalpies: 


^01  = 


Ej^rrij^  +E  12171 12 


m. 


o^ 


(7-4) 


Finally,  the  outlet  temperature  is  computed  from  the  outlet  enthalpy  and  humidity  ratio 
using  equation  7-5,  derived  by  rearranging  equation  7-3: 


£„,-(2.468x106)>V„, 

1,005+ 1,8591V„,  P-6) 

The  outlet  temperature,  flow  rate,  and  humidity  ratio  are  outputs  1 , 2,  and  3. 


Mode  2,  mixer  with  known  iniets 


For  this  mode  there  are  two  inlet  streams,  each  of  which  has  a maximum  flow  rate; 
and  the  maximums  are  supplied  as  inputs  2 and  5.  A control  variable,  input  7,  pro- 
portions the  outlet  flow  between  the  two  inlet  flows: 


mo^=lmj^+0-y)mi2  (7-6) 

When  7 equals  1 , the  outlet  flow  is  inlet  stream  1 , and  when  y equals  0,  the  outlet 
flow  is  inlet  stream  2.  After  the  outlet  flow  has  been  computed,  the  outlet  humidity 
ratio  (Wqi)  enthalpy  (E^^),  and  temperature  (T^^)  are  computed  just  as  for  mode  1 
using  equations  7-2  through  7-5. 

Mode  3,  mixer  with  known  outiet 

For  this  mode  there  is  a pump  or  fan  installed  in  the  single  outlet,  so  the  outlet  flow 
rate  is  known  and  is  supplied  to  subroutine  TEE  as  input  2.  There  are  two  inlets,  and 
their  combined  flow  must  equal  the  given  outlet  flow.  The  inlet  flows  are  proportioned 
between  the  two  streams  according  to  a control  variable  (input  7).  First,  the  two  inlet 
flow  rates  are  computed  from 


m,2  = (1- 7)^01  (7-8) 

When  7 = 1,  the  flow  is  entirely  stream  1 , and  when  7 = 0,  it  is  entirely  stream  2.  The 
m,.,  and  /r7,2  are  made  available  as  outputs  2 and  5. 


Like  modes  1 and  2,  the  inlet  temperatures  and  humidity  ratios  must  be  supplied  as 
inputs  1 , 3,  4,  and  6.  After  the  inlet  flows  have  been  computed  from  equations  7 and 
8,  the  outlet  humidity  ratio,  enthalpy,  and  temperature  are  computed  using  equations 
7-2  through  7-5. 

Mode  4,  flow  diverter 

For  this  mode  there  is  one  inlet  stream  of  known  temperature,  flow  rate,  and  humidity 
ratio,  given  in  inputs  1 , 2 and  3.  The  inlet  stream  is  divided  between  two  outlet 
streams  according  to  the  value  of  a control  variable,  y (input  7).  The  outlet  flow  rates, 
(output  2)  and  07^2  (output  5)  are  computed  from 


mo2  = (1  -7)^/1 


When  7 = 1,  outlet  stream  1 is  entirely  inlet  stream  1 and  stream  2 is  zero;  and  when 
7 = 0,  outlet  stream  1 is  zero  and  outlet  stream  2 is  entirely  inlet  stream  1 . There  is 
no  change  of  temperature  or  humidity  ratio  in  a flow  diverter;  so  the  outlet 
temperatures  (outlets  1 and  4)  are  merely  set  equal  to  input  1 , and  the  outlet  humidi- 
ty ratios  (output  3 and  6)  are  merely  set  equal  to  input  3. 

It  is  physically  possible  for  condensation  to  occur  in  a tee  or  mixer  (modes  1 , 2,  or  3) 
if  a hot,  nearly  saturated  air  stream  is  mixed  with  a cold  stream.  However  such  oc- 
currences are  to  be  avoided  in  practice,  and  subroutine  TEE  does  not  check  for 
supersaturation. 

Type  8 The  type  8 sensible  heat  exchanger  is  adapted  directly  from  Klein  et  al.  {1976).  As  il- 

Sensible  Heat  Exchanger  lustrated  in  figure  8,  the  exit  temperature  of  the  hot,  and  cold,  fluids  are 

computed  from  the  entering  hot,  T^,,  and  cold,  T^,,  fluid  temperatures  and  their 
respective  mass  flow  rates,  and 

There  are  four  possible  modes  of  operation:  1 , parallel  flow;  2,  counter  flow; 

3,  crossflow;  and  4,  constant  effectiveness.  The  value  of  parameter  1 is  used  to 
select  the  desired  mode. 

The  following  notations  will  be  used: 

Cj,  heat  capacity  flow  rate  on  cold  side  (J/s»®C)  = 

Cfj  heat  capacity  flow  rate  on  hot  side  (J/s»  °C)  = /W^Cp^ 

Cmax  the  larger  of  or 

the  smaller  of  or  C/, 

Cp^  heat  capacity  of  cold  side  fluid  (J/kg»®C) 

^ph  heat  capacity  of  hot  side  fluid  (J/kg»®C) 

E heat  exchanger  effectiveness 

Mq  mass  flow  rate  on  cold  side  (kg/s) 

mass  flow  rate  on  hot  side  (kg/s) 

0,  total  heat  transfer  rate  across  exchanger  (W) 

maximum  heat  transfer  rate  across  exchanger  (W) 

R C 1C 

^min'^max 

UA/C^;, 

T^j  cold  side  inlet  temperature  (°C) 

TpQ  cold  side  outlet  temperature  (°C) 
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T^j  hot  side  inlet  temperature  (®C) 

Tf^Q  hot  side  outlet  temperature  (°C) 

UA  overall  heat  transfer  coefficient  (W/°C) 

7 control  variable 

For  modes  1 , 2,  and  3,  the  effectiveness  is  computed  from  the  overall  heat  transfer 
coefficient. 


Mode  1,  parallel  flow: 


E= 


1 - expl  “ ^c)l 


1 +Rr 


(8-1) 


Mode  2,  counter  flow: 


E = . 


1 -exp[-Ffy(1  -Rc)] 

1 -{R^)exp[-R^0  -R^)] 


(8-2) 


Mode  3,  cross  flow,  hot  side  unmixed: 


Cmax  = c^,  f = 1 - exp  - —[1  - exp(  - R^jRc)] 


if  Cmin  = Crt,  E=—{  1 -exp  [-RcO  -exp  {-RJ)] 


For  modes  1,  2,  and  3, 


(8-3) 


= (8-4) 

> T^l  + £(C„i„/CJ  - TJ  (8-5) 

Or=£C„,i„(7)„-r„.)  (8-6) 


For  mode  4,  constant  effectiveness  supplied  by  user, 


^min 

^min 

— Cfj, 

~ ^c’  ^max  “ ~ 

(8-7) 

Qj  = EQ^g^y^ 

(8-8) 

ho  = hi  ~ 

(8-9) 

ho  ~ hi 

(8-10) 
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There  are  two  special  cases.  For  mode  2,  if 


flp-l  i<0.01,  then  E = RJ{R^J  + ^) 


For  modes  1 , 2,  and  3,  if  R^J  < 0.01 , then 


5=1  -exp(-flj 


The  sequence  number  codes  for  the  parameters,  inputs,  and  outputs  are  given  in 
figure  8 and  appendix  E.  All  except  input  5 are  explained  by  the  preceding  equa- 
tions. Input  5 is  the  control  variable  that  is  used  by  other  routines  to  control  the  rates 
of  flow  of  the  two  fluids.  If  it  is  generated  by  a type  4 thermostat,  the  flows  are 
reduced  by  a proportion  of  their  maximums,  the  proportion  corresponding  to  the  frac- 
tion of  a simulation  time  increment  that  the  heat  exchanger  is  actually  in  operation.  In 
other  words,  a type  4 thermostat  converts  cyclic  on-off  flow  to  an  average  steady 
flow.  Because  the  performance  of  a heat  exchanger  depends  on  actual  flow  rates, 
the  control  variable  must  be  supplied  to  subroutine  SXR  (as  input  5)  to  scale  the  flow 
rates  up  to  actual  and  then  to  scale  output  temperatures  and  energy  exchange  down 
to  average.  If  the  exchanger  is  to  be  operated  continuously,  input  5 can  be  set  equal 
to  1.0. 
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Figure  8. 

Functional  diagram  of  a type  8 sensible  heat  exchanger. 
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The  type  9 latent  and  sensible  heat  exchanger  can  be  used  to  model  wet  devices, 
such  as  cooling  towers,  air  washers,  and  dehumidifying  coils,  as  well  as  dry  devices, 
such  as  the  heating  coils  modeled  by  the  type  8 sensible  heat  exchanger.  Dehumidi- 
fying coils  which  might  be  dry,  partially  wet,  or  completely  wet  can  also  be  handled. 
The  type  9 exchanger  has  two  modes  of  operation.  Mode  1 is  for  direct-contact 
devices,  such  as  cooling  towers  or  air  washers.  Mode  2 is  for  noncontact  devices, 
such  as  heating  or  cooling  coils  which  have  a wall  of  metal  or  other  material  to 
separate  the  liquid  from  the  air. 

The  following  symbols  will  be  used: 

cross  sectional  face  area  (m2) 
heat  transfer  area  per  cubic  meter  (m2/m3) 
mass  transfer  area  per  cubic  meter  (m2/m3) 
c specific  heat  (J/kg»°C) 

E enthalpy  (J/kg) 

G mass  flow  rate  (kg/s»m2  of  cross-sectional  face  area) 
h heat  transfer  coefficient  (W/®C»m2  of  heat  exchange  area) 

Kq  mass  transfer  coefficient  (kg/s*  m2  of  mass  exchange  area) 
i length  (m) 

R resistance  to  heat  flow  (m2®C/W) 

T temperature  (®C) 

U combined  heat  transfer  coefficient  for  liquid  film  and  metal  (W/m2.  ®C) 
humidity  ratio  (kg/kg) 

7 control  variable 

Subscripts  are  as  follows: 

a air 
am  moist  air 

H refers  to  heat  transfer  area 
/ interface 
L liquid 

m metal  or  material 
M refers  to  mass  transfer  area 
V vaporization 

VO  vaporization  at  base  temperature 

1 entering 

2 exiting 

Analogous  to  the  type  8 exchanger,  the  type  9 exchanger  computes  the  exit  air 
temperature  (T-az).  humidity  ratio  (^1^32)  > temperature  (^L2)  from  entering 

air  temperature  ^al).  humidity  ratio  (VVai)’  temperature  The  basic 

model  of  the  mechanisms  of  heat  ana  mass  exchange  at  the  microscopic  level 
follows  ASHRAE  (1972)  and  is  illustrated  in  figure  9.  Energy  is  transferred  by  convec- 
tion through  film  resistances  from  (or  to)  the  bulk  air  at  Tg,  W^,  Eg  to  (or  from)  the 
bulk  liquid  at  7^.  For  direct-contact  devices  (mode  1),  the  humidity  ratio  at  the  inter- 
face, Wj,  is  the  saturation  humidity  ratio  at  interface  temperature,  7).  For  noncontact 
devices  (mode  2),  a wall  with  resistance  separates  the  liquid  from  the  air.  Then,  if 
l/Vg  is  less  than  the  saturation  humidity  ratio  at  7),  the  interface  is  assumed  to  be  dry, 
with  Wj=Wg.  This  special  dry  case  is  the  same  as  that  of  a type  8 sensible  heat  ex- 
changer. However,  when  the  saturation  humidity  ratio  at  7,-  is  less  than  W^,  conden- 
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sation  is  assumed  to  occur  at  the  interface,  as  in  a dehumidifier.  The  resistance  of 
the  condensate  is  neglected  in  this  model,  however. 
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Figure  9. 

Illustration  of  the  microscopic  films  that  impede  the 
transfer  of  heat  and  mass  between  bulk  air  and  bulk 
liquid  in  a type  9 latent  and  sensible  heat  exchanger. 
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Figure  10. 

Illustration  of  the  macroscopic  exchange  of  heat  and 
mass  between  an  air  stream  and  a liquid  stream  flowing 
parallel  (or  counter)  through  a thin  cross  section  of  a 
type  9 latent  and  sensible  heat  exchanger. 
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The  macroscopic  picture  of  the  heat  and  mass  transfer  is  illustrated  in  figure  10.  Liq- 
uid at  mass  flow  rate  (kg/m2.s)  and  air  at  mass  flow  rate  Gg  (kg/m2.s)  are  flowing 
through  a cross  section  of  area,  and  thickness,  A^,  of  the  heat  exchanger.  The 
flow  can  be  either  parallel  or  counter  but,  for  the  immediate  purposes  of  illustration, 
will  be  taken  as'TDarallel. 

Following  ASHRAE  {1972),  the  equation  for  heat  transfer  from  the  interface  to  the  air 
is  written 


^sPanP'^a  = ” Ta)^^  (9-1 ) 

where 

Cam  = 1,005-h1,859M/a  (9-2) 

The  equation  for  mass  transfer  is 

- dG,  = G^dW=  K^a^iWi- W^)  (9-3) 

For  mode  2 if  7,  >7a,  then  Wj=Wg  and  dGi_  = dW=0.  Combining  equations  9-1  and 
9-3  with  the  enthalpy  of  vaporization,  E^,  yields 

GaiCamdT,  + E.^dW)  = [Koa^iWi  - W)E,  + hga^T;  - Tg)]de  (9-4) 

Assuming  that  the  material  in  the  chamber  wets  completely  so  that  3^  = 3/^,  and 
utilizing  the  Lewis  relation  for  an  air-water  system  which  states  hg  = KfjCg^,  equation 
9-4  reduces  to 

GgdEg  = Kaa^E-Eg)di  (9-5) 

In  deriving  equation  9-5,  it  is  also  assumed  that  the  percentage  change  of  G^  due  to 
evaporation  of  water  is  small.  Since  there  must  be  an  energy  balance, 

GgdEg  = GLCLdtL  (9-6) 

The  equation  for  heat  transfer  from  water  to  the  interface  is 


G^cjdT^  = U{Tl  - 7,)df 


where,  in  reference  to  figure  9,  U is  given  by 

1 


U = - 


Combining  equations  9-5,  9-6,  and  9-7  yields 

Ei-E, 

Also  from  equation  9-5, 


U 


Tl  - Tj  ^a^H 

Ga  r dE 


e = 


Ej  Eg 


(9-7) 

(9-8) 


(9-9) 


(9-10) 
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Equation  9-6  describes  how  the  air  enthalpy  changes  with  water  temperature,  and 
equation  9-7  shows  how  the  interface  temperature  changes  to  accommodate  this 
change  in  air  and  water  conditions.  Starting  with  a known  inlet  air  condition  at  the 
bottom  (top  for  parallel  flow)  and  a known  bottom  (exit)  water  temperature  and  a 
known  entrance  water  temperature,  and  considering  the  air  to  move  through  the 
tower  in  a series  of  steps,  the  interface  associated  with  each  of  these  steps  can  be 
calculated  and  finally  also  the  exit  conditions  for  the  air.  Then,  equation  9-10  yields 
the  length  of  the  exchanger.  This  procedure  was  developed  by  Mickley  {1949)  and  is 
described  in  the  ASHRAE  {1972).  It  is  programmed  as  a routine  within  the  type  9 
heat  exchanger. 

The  Mickley  routine  computes  exit  air  conditions  and  length  of  column  from  entering 
air  and  liquid  conditions  and  exiting  liquid  conditions.  To  compute  the  liquid  exit  con- 
ditions instead,  the  type  9 heat  exchanger  first  guesses  an  exit  liquid  temperature 
and  then  uses  the  Mickley  routine  to  calculate  the  length  of  the  exchanger.  Newton 
iteration  is  used  to  improve  the  guess  of  the  exit  liquid  temperature  until  the  com- 
puted length  equals  the  actual  length. 

The  rates  of  heat  and  mass  transfer  are  controlled  by  the  transfer  coefficients,  hi_a^ 
and  KqS,^.  These  transfer  coefficients  are  computed  from  equations  containing  user- 
supplied  coefficients.  Referring  to  appendix  E,  parameters  6,  7,  and  8 are  the  coeffi- 
cients C^,  C2,  and  C3 , respectively,  for  computing  as  follows: 

= (9-11) 

The  Kq  is  the  mass  transfer  coefficient  with  respect  to  the  area  available  for  mass 
transfer  within  the  exchanger  (kg/s*  m2  of  mass  exchange  area),  and  af^  is  the  mass 
transfer  area  per  volume  of  exchanger.  Generally,  for  cooling  towers  and  other 
devices  filled  with  irregular  material  or  irregular  water  drops,  only  the  product  KQaf^ 
can  be  determined.  The  correlation  coefficients  in  equation  9-1 1 have  been  deter- 
mined for  aspen  excelsior  pads  (Kimball  et  al.  1977)  and  some  other  materials 
(Furlong  1975).  Data  also  exist  in  the  literature  which  correlate  the  mass  transfer 
coefficient,  Kq,  by  itself  against  Reynolds  number  (air  velocity)  for  many  simple 
geometries,  or  it  can  be  calculated  from  the  heat  transfer  coefficient  (KQ^h/Cg^)  for 
which  an  even  larger  body  of  data  has  been  published  (ASHRAE  1972).  For  these 
simple  geometries,  such  as  in  cooling  or  heating  coils,  the  mass  transfer  area  per 
unit  volume,  a/^^,  can  often  be  calculated  from  physical  measurements.  Then,  if  the 
correlation  for  Kq  is  of  the  form 


Ko=c;g/^g,‘^>  (9-12) 

the  Cj  for  equation  9-1 1 can  be  obtained  from 

Ci  = C)aM  (9-13) 

If  there  is  no  dependence  on  liquid  flow  rate,  as  in  noncontact  exchangers,  C3 
(parameter  8)  should  be  set  equal  to  zero. 

Similar  to  the  case  for  parameters  9,  10,  and  11  are  the  coefficients  C4,  C5, 
and  Cq,  respectively,  for  computing  /7^a^  as  follows: 

(9-14) 
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Type  10 
Flat-Plate 
Solar  Collector 


These  coefficients  are  analogous  to  those  in  equation  9-1 1 , and  all  the  same  com- 
ments apply.  In  addition,  however,  for  finned  coils  the  user  must  remember  to  ac- 
count for  the  smaller  internal  area  exposed  to  the  liquid  as  compared  to  the  external 
area  exposed  to  the  air.  This  can  be  done  by  using  a C4  that  is  reduced  by  a factor 
equal  to  the  ratio  of  internal  to  external  surface  area  (ASHRAE  1975,  p.  6.10;  Air 
Conditioning  and  Refrigeration  Institute  1972). 

Parameter  12  (appendix  E)  is  the  metal  or  structure  resistance  of  a noncontact  heat 
exchanger  (m®*  ®C/W).  If  the  exchanger  is  normally  wet,  a condensate  resistance 
should  be  added  to  othenwise  the  condensate  resistance  is  zero.  For  mode  1 , 

R^  should  be  set  equal  to  zero.  The  combined  liquid-metal  heat  transfer  coefficient, 
U,  is  computed  from  L/  = 1/(R^-i-(1//7^a^)). 

The  control  variable  (input  8)  is  the  one  used  by  other  routines  to  control  the  rates  of 
flow  of  the  fluid  and  the  air.  If  it  is  generated  by  a type  4 thermostat,  the  flows  are 
reduced  from  their  maximums  by  a proportion  corresponding  to  the  fraction  of  a 
simulation  time  increment  that  the  heat  exchanger  is  actually  in  operation.  In  other 
words,  a type  4 thermostat  converts  cyclic  on-off  flow  to  an  average  steady  flow.  Like 
the  type  8 sensible  heat  exchanger,  the  performace  of  a type  9 latent  and  sensible 
heat  exchanger  depends  on  actual  flow  rates.  Therefore,  the  control  variable  must  be 
supplied  to  subroutine  LXR  (as  input  8)  to  scale  the  flow  rates  up  to  actual  and  then 
to  scale  output  temperatures,  humidity  ratios,  and  energy  and  water  exchanges  down 
to  average.  If  the  exchanger  is  operated  continuously,  input  8 can  be  set  equal  to 
1.0. 

The  other  parameters,  inputs,  and  outputs  are  self-explanatory  as  defined  in  appen- 
dix E. 

The  type  10  flat-plate  solar  collector  is  adapted  directly  from  Klein  et  al.  {1976)  and 
uses  the  model  (HWB)  of  Hottel  and  Woertz  {1942),  Whillier  {1967),  and  Bliss  {1959) 
because  of  its  computational  simplicity  and  its  excellent  agreement  with  more 
elaborate  models. 

The  following  symbols  will  be  used: 

A collector  area  (m^) 

Cp  fluid  thermal  capacitance  (J/kg»°C) 

F’  collector-geometry  efficiency  factor  (dimensionless) 

Ffl  collector  efficiency  factor  defined  in  equation  10-2 

Hq  rate  of  beam  radiation  per  unit  area  incident  upon  the  tilted  collector  surface 
(W/m2) 

Hq  rate  of  diffuse  radiation  per  unit  area  incident  upon  the  tilted  collector  surface 
(W/m2) 

Hj  rate  of  total  radiation  per  unit  area  incident  upon  the  tilted  collector  surface 
(W/m2) 

heat  transfer  coefficient  off  top  glass  cover  (W/m2.  °C) 

KL  product  of  the  extinction  coefficient  and  the  thickness  of  each  glass  cover 
(dimensionless) 

m collector  fluid  flow  rate  (kg/s) 

N number  of  glass  covers  (1 , 2,  or  3) 

Q^J  rate  of  energy  collection  (W) 
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s collector  tilt  from  horizontal  (degrees) 

Tfy  absolute  ambient  temperature  (K) 

Tg  ambient  temperature  (°C) 

Tj  inlet  fluid  temperature  (°C) 

Tq  outlet  fluid  temperature  (°C) 

Tp  mean  absolute  collector  plate  temperature  (K) 

L/^g  loss  coefficient  per  unit  collector  area  accounting  for  bottom  and  edge  losses 
(W/m2.°C) 

L/^  collector  overall  energy  loss  coefficient  per  unit  collecter  area  (W/m2.  ®C) 

W windspeed  (m/s) 

a collector  plate  absorptance  for  solar  radiation 
eg  emittance  of  glass  covers 
ep  emittance  of  plate 

7 control  variable  to  scale  average  flow  rate  to  actual 
rjg  refractive  index  of  the  glass  (assumed  to  be  1 .526) 
dj  incidence  angle  of  beam  radiation  on  the  collector  surface  (degrees) 

T transmittance  of  the  N cover(s) 

The  HWB  model  expresses  the  rate  of  energy  collection,  0^,  as 


Qu  = AFp[HrTa-UL{Ti-Tg)] 


where 


Fr  = 


mC^  r / F'U.A^ 

1 - exp 


AU, 


mC^ 


(10-1) 


(10-2) 


The  geometry  efficiency  factor  F',  a function  of  the  collector  construction,  can  be 
determined  in  the  manner  given  by  Bliss  (7959)  or  Duffie  and  Beckman  {1974).  The 
overall  energy  loss  coefficient,  L/^,  is  a complicated  function  of  the  collector 
construction  and  (to  a lesser  extent)  its  operating  conditions.  If  the  dependence  of  Ui^ 
upon  operating  conditions  is  ignored,  L/^  is  a constant  for  a specified  collector;  its 
value  can  be  determined  (at  the  estimated  average  operating  conditions)  from  the 
information  given  in  chapter  7 of  Duffie  and  Beckman  {1974).  Alternatively,  the 
following  expression,  developed  by  Klein  {1975),  can  be  used  to  approximate  the 
value  of  l/^; 


U,  = 


^(Tl+TDiTp  + h) 


N 


Vp-Ta) 
N + f 


+ _ 

0.33  h 

• llA 


1 


2/V  + /-1 


+ U, 


be 


eg  + 0.05/V(1-eJ 


- N 


(10-3) 


where  = 5.7  + 3.8H/ 


f = (1  - 0.04h^  + 0.005/72  )(1  _ 0.091  N) 
C = 365.9(1  - 0.00883s  + 0.0001 298s2) 


(10-4) 

(10-5) 

(10-6) 
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The  transmittance  of  an  AZ-glass  cover  system,  r,  is  in  general  a function  of  the  angle 
at  which  beam  and  diffuse  radiation  strike  the  cover  surface.  If  the  incidence  angle  of 
diffuse  radiation  is  assumed  to  be  an  average  of  60®  (as  suggested  by  Hottel  and 
Woertz  1942),  t can  be  calculated  from 

r = {HJHj) { t'q  exp[  - KL/cos(0i )] } + {H^Hj) { t^qo  exp  [ - KL/cos(02)] } (1 0-7) 

where  = the  transmittance  of  an  A/-glass  cover  system  for  radiation  incident  on 
the  cover  surface  at  an  angle,  x,  accounting  for  reflection  only  and 
neglecting  the  absorptance  of  radiation  by  the  glass.  The  value  for  is 
given  in  figure  6.1.3  of  Duffie  and  Beckman  [1974). 

6^  = arcsin[sin(07-)/i7g] 

62  = arcsin[sin(60®)/77g] 

As  seen  in  figure  6.2.1  of  Duffie  and  Beckman,  r is  essentially  constant  for  incidence 
angles  between  0°  and  40°.  As  a result,  the  angular  dependence  of  r may  be  unim- 
portant for  some  collector  orientations. 

After  has  been  computed,  the  outlet  fluid  temperature  is  computed  from 

T^  = T;^QJ{mCp)  (10-8) 

Equations  10-1  and  10-8  apply  only  when  fluid  is  being  pumped  through  the  collec- 
tor. When  m = 0,  as  will  normally  be  the  case  at  night,  Q^J  is  set  equal  to  zero,  and 
the  outlet  fluid  temperature  is  computed  from 

Hfroi 


The  type  10  solar  collector  has  four  modes  which  have  different  paramter  and  input 
requirements  and  different  degrees  of  computational  difficulty:  however,  the  first  five 
parameters  and  the  first  four  inputs  are  the  same  for  all  four  modes  (appendix  E). 

For  mode  1 the  user  supplies  the  value  of  the  transmittance,  r,  as  parameter  6 and 
the  loss  coefficient,  Ui_,  as  parameter  7.  This  saves  considerable  computation  time 
but  may  introduce  significant  errors  for  some  cases.  Values  for  parameters  8 through 
12  are  unneeded  and  can  simply  be  set  equal  to  zero.  Similarly,  inputs  5 through  7 
are  unused  and  can  be  connected  to  any  output. 

For  mode  2,  is  computed  from  equation  10-3,  so  additional  parameters  and  input 
must  be  specified  as  follows:  Parameters  8,  number  of  panes  (A/);  parameter  11,  tilt 
from  horizontal  (s);  and  input  6,  windspeed  (W).  Now,  unused  parameters  7 and  12 
may  be  set  equal  to  zero,  and  unused  inputs  5 and  7 may  be  connected  to  any 
output. 

For  mode  3,  t is  computed  from  equation  10-8,  but  the  user  specifies  a constant 
value  Ui_  in  parameter  7.  Referring  again  to  appendix  E,  the  user  must  also  now 
specify  parameter  8,  number  of  panes  (A/):  parameter  12,  extinction  coefficient 
thickness  product  (KL);  input  5,  diffuse  solar  radiation  [Hq);  and  input  7,  angle  of  in- 
cidence of  beam  radiation  onto  the  collector  surface  (dj).  Parameters  6,  9,  10,  and  11 
are  unused  and  can  be  set  equal  to  zero.  Input  6 is  also  unused  and  can  be  con- 
nected to  any  output. 


Typ©  11 

Stratified-Fluid  Tank 
with  Internal  Heater 


For  mode  4,  both  r and  L/^  are  variables  computed  by  the  program.  This  mode  re- 
quires the  most  computational  effort  but  should  also  be  the  most  accurate,  provided, 
of  course,  that  the  parameters  and  inputs  are  accurate.  As  shown  in  appendix  E,  all 
inputs  are  used  in  mode  4,  and  only  parameters  6 and  7 are  unused  and  can  be  set 
equal  to  zero. 

Like  the  type  8 and  9 heat  exchangers,  the  type  10  solar  collector  is  another  device 
whose  performance  depends  on  actual  flow  rate.  Because  the  mass  flow  rate  sup- 
plied as  input  2 might  be  an  average  flow  rate  from  a pump  for  a time  increment, 
subroutine  CLECR  also  requires  that  the  pump’s  control  variable,  7,  be  input  8.  This 
control  variable  is  used  to  scale  up  the  flow  rate  to  the  actual  for  the  portion  of  the 
time  that  the  collector  is  in  operation  and  then  to  scale  down  the  energy  collection 
and  output  temperature  to  average  for  the  time  increment.  For  continuous  operation, 

7 can  be  set  equal  to  1 .0 

The  type  1 1 stratified-fluid  tank  with  internal  heater  is  also  adapted  directly  from  Klein 
et  al.  (1976).  The  thermal  performance  of  such  a sensible-energy  storage  tank,  sub- 
ject to  thermal  stratification,  is  modeled  by  assuming  that  the  tank  consists  of  N fully 
mixed  equal-volume  segments,  as  shown  in  figure  1 1 . The  degree  of  stratification  is 
determined  by  the  value  of  N.  If  N is  equal  to  1 , the  storage  tank  is  modeled  as  a 
fully  mixed  tank  and  no  stratification  effects  are  possible.  Several  investigators  (Close 
1967,  Gutierrez  et  al.  1974)  have  suggested  that  a tank  model  consisting  of  three 
segments  (N  = 3)  provides  the  best  compromise  between  accuracy  and  computational 
effort  when  an  estimation  of  stratification  effects  is  needed. 

The  following  notations  will  be  used: 

A,  surface  area  of  the  /th  tank  segment  (m.2) 
specific  heat  of  the  tank  fluid  (J/kg»°C) 

H tank  height  (m) 

/ tank  segment  number,  with  /=1  for  the  top  (hottest)  segment 
f number  of  the  tank  segment  in  which  the  heating  element  is  located  1<(<N 

(j  number  of  the  tank  segment  in  which  the  thermostat  of  the  heating  element  is 

located 

Mj  mass  of  fluid  in  the  /th  section  (kg) 

Mi_  fluid  mass  flow  rate  to  the  load  and/or  of  the  makeup  fluid  (kg/s) 
fluid  mass  flow  rate  to  and  from  the  heat  source  (kg/s) 
m fluid  mass  flow  rate  inside  the  tank  (kg/s) 

N number  of  equal-volume,  fully  mixed  (uniform  temperature)  tank  segments 
Oenv  fate  of  energy  loss  from  the  tank  to  the  surroundings  (W) 
maximum  rate  of  energy  input  by  the  heating  element  (W) 

0/  rate  of  energy  input  by  the  heating  element  (W) 

Otank  which  sensible  energy  is  removed  from  the  tank  to  supply  the  load  (W) 

number  of  the  tank  segment  to  which  the  fluid  from  the  heat  source  is  closest 
in  temperature  1 <S,,</V 

number  of  the  tank  segment  to  which  the  fluid  replacing  that  extracted  to  supp- 
ly the  load  is  closest  in  temperature  1 <S^</\/ 
t time  (s) 

Tenv  temperature  of  the  environment  surrounding  the  tank  (°C) 

Ti  temperature  of  the  /th  tank  segment  (°C) 

temperature  of  the  fluid  entering  the  storage  tank  from  the  heat  source  (®C) 
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temperature  of  the  fluid  replacing  that  extracted  to  supply  the  load  (®C) 
Ti  temperature  of  tank  segment  having  the  internal  thermostat  (®C) 

T/y/  temperature  from  bottom  of  tank  (®C) 

Tq  initial  average  tank  temperature  (®C) 

7ggt  set  temperature  of  the  heating  element  thermostat  (®C) 

U loss  coefficient  between  the  tank  and  its  environment  (W/m2*®C) 

V tank  volume  (m^) 

AE  internal  energy  change  of  the  tank  (J) 

oij  a control  function  defined  by 

p if/=S, 

/ 0 otherwise 

I3j  a control  function  defined  by 

f 1 if / = S^ 

Si- 

( 0 otherwise 


external  control  variable.  Vary  from  0 to  1 to  vary  heater  output  from  0 to 
Ow£.  If  t;  = 0,  this  input  is  unused  and  can  be  connected  to  any  output. 
yjs  internal  thermostat  variable 


7/ 


tts  = 


0 if  T(>T^Q^  + ^ 

1 ifrf<rsg,-i 

[1  + sin(7r(7f  - Tge,  - 2)/2)]/2  if  Tggt  - 1<  7^  < fge,  + 1 


a control  function  defined  by 
/-I  N 

7/  = ^hPpf  ^ ~ ^L^pf  ^ 

/=1  ;•=/■+ 1 


6,  a control  function  defined  by 


if  /<^ 
otherwise 


7}  flag  to  indicate  whether  external  control  variable  will  be  used  (1)  or  not  (0). 
p^  fluid  density  (kg/m^) 

The  model  includes  an  optional  electric  resistance  heating  element  which  is  controlled 
by  an  internal  thermostat  or  which,  as  an  additional  option,  is  controlled  by  the  inter- 
nal thermostat  plus  an  external  control  variable.  One  modification  from  the  TRNSYS 
model  of  Klein  et  al.  {1976)  is  that  the  internal  thermostat  is  not  simply  an  on-off 
device.  TRNSYS  “sticks”  the  thermostat  in  one  state  or  the  other  when  on-off  oscilla- 
tions occur  with  successive  iterations  (see  description  of  type  4 thermostat).  In  this 
type  1 1 tank,  the  internal  thermostat  has  a 2®C  dead  band  centered  on  the  set-point 
temperature.  When  the  tank  temperature  is  within  the  dead  band,  the  program  per- 
forms a sine  interpolation  to  produce  an  output  from  the  heating  element  that 
changes  smoothly  rather  than  abruptly  from  on  to  off.  This  modification  will  produce  a 


Ml,Ti 


Ml,Tl 


Figure  11. 

Schematic  diagram  of  the  segments  in  a type  1 1 
stratified-fluid  tank. 


more  stable  simulation  for  most  cases.  For  tank  models  in  which  A/>1,  the  position 
(tank  segment  number)  of  the  heating  element  and  the  thermostat  must  be  specified. 
The  model  assumes  that  the  energy  supplied  to  the  tank  from  the  heating  element  is 
evenly  distributed  to  all  tank  segments  above  and  including  the  heating  element. 
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The  rate  of  energy  delivery  to  the  tank  from  the  heating  element  is 


0/  = 


Ohe  yrs  The  ^ ^ = 1 

OheITS  ifT;  = 0 


An  assumption  employed  in  this  model  when  A/>  1 is  slightly  different  from  that  used 
in  the  algorithm  described  by  Close  (1967)  and  Gutierrez  et  al.  (1974).  They  assumed 
that  there  is  no  internal  mixing  of  the  fluid  streams  flowing  up  from  the  bottom  of 
the  tank  and  down  from  the  top  before  they  enter  each  segment.  In  reference  to 
figure  11,  their  assumption  implies  that  =^2  and  and  that  and  mg  are 

unaffected  by  and  m^.  The  alternative  assumption— that  the  fluid  streams  flowing 
up  and  down  are  fully  mixed  before  they  enter  each  segment— is  used  in  the  type  1 1 
model.  This  assumption  implies  that  is  added  to  and  that  /fjg  is  added  to  m3 
to  yield  a resultant  flow,  either  up  or  down.  An  energy  balance  on  the  /th  segment 
(neglecting  losses)  is  then 


Mppf 


dt 


Cp^(7;_  1-7}) 
(m3-mi)  Cp^(T}+i-T}) 


mi>m3 
mi  <m3 


It  has  been  found  that  this  latter  assumption  generally  permits  a higher  degree  of 
stratification  than  the  former  and  yields  results  which  agree  well  with  experimental 
measurements  (Klein  et  al.  1976). 


The  model  assumes  that  the  energy  input  to  the  tank  from  the  heating  element  is 
evenly  distributed  to  all  tank  sections  above  and  including  the  heating  element.  Then, 
a detailed  energy  balance  written  about  the  /th  tank  segment  is  expressed  as 

M,Cp,  fS  = c,M,C^{T,-Ti)  + l3iM,Cp,{Ti_-Ti)  + UA,(T^-Ti) 

^ + ( yiiTi.,-T,)  if7,>0 

[ 'y/+i(7}-7}  + i)  if  7,^.1  <0 

+ 6,0/  for  / = 1 , A/ 

The  temperatures  of  each  of  the  tank  segments  are  determined  by  the  numerical  in- 
tegration of  the  time  derivatives  expressed  in  the  above  equation. 


A rate  of  energy  loss  to  the  environment  is  computed  from 

N 

^env  “ ^ (7/  ~ T’gpy) 

/=1 


The  rate  at  which  energy  is  removed  from  the  tank  to  supply  the  load  is  computed 
from 


^tan  k - ^h^pf  ( 7}  7}^) 

The  change  in  stored  heat  since  initial  time  is  computed  from 

N 

AE  = Cpf  P,V'£{Ti-T,) 

/=1 
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The  sequence  codes  for  the  parameters,  inputs,  outputs,  and  derivatives  are  listed  in 
appendix  E.  All  have  already  been  discussed  except  for  the  initial  values  of  the 
dependent  variables  that  must  be  both  integrated  and  estimated  by  the  user.  In  this 
case,  these  are  the  initial  temperatures  of  the  tank  segments.  The  closer  these  initial 
estimates  are  to  the  final  computed  temperatures,  the  fewer  iterations  will  be  re- 
quired. However,  the  final  temperatures  are  dependent  on  the  estimated  initial 
temperatures.  When  daily  cycles  of  data  are  available,  the  user  should  repeat  the  first 
day’s  data  a few  times  to  reduce  the  dependence  on  the  initial  estimates. 

The  time  dependent  forcing  function  (TIMFN)  is  also  adapted  from  Klein  et  al.  {1976). 
It  can  model  a timer  that  produces  a discrete  signal  to  turn  a device  on  or  off  at  a 
set  time  of  day,  or  it  can  model  seasons  of  the  year  that  produce  a gradually  chang- 
ing deep  soil  temperature.  Its  purpose  is  to  produce  a variable,  F,  that  is  a repetitive 
or  nonrepetitive  function  of  time.  The  pattern  of  this  function  is  established  by  a set 
of  discrete  data  points  indicating  its  values  at  various  times  through  one  cycle.  Linear 
interpolation  is  used  to  produce  a continuous  output  from  the  discrete  data. 

The  following  symbols  will  be  used: 

Cj  the  cycle  time  (h).  It  is  the  time  span  after  which  the  pattern  repeats  itself.  It 
can  be  the  total  simulation  time. 

N one  less  than  the  number  of  data  pairs  used  to  define  the  function 
f elapsed  time  since  start  of  simulation  (h) 

F function  value  at  time  t 

fg  time  of  first  given  point  (equals  elapsed  time  to  start  of  repetitive  cycle  after 
start  of  simulation)  (h) 

Fq  given  function  value  at 

time  of  second  given  point  (h) 

F.,  given  function  value  at  f., 
f2  time  of  third  given  point  (h) 

F2  given  function  value  at  t2 

tf^  time  of  last  given  point  (equals  elapsed  time  to  end  of  repetitive  cycle  after 
start  of  simulation)  (h) 
given  function  value  at 

tf^  time  derived  from  the  simulation  time,  t,  by  repetitively  subtracting  or  adding 
whole  numbers  of  time  cycles,  Cy  so  that 

The  first  computations  performed  by  TIMFN  are  to  compute  the  relative  time  fy,,  so 
that 


Type  12 

Time-Dependent 
Forcing  Function 


^o-^R-^N 

Then  TIMFN  searches  for  the  individual  given  points  (f,,  F,  and  F/+.,)  that  are 
closest  to  tp  on  each  side  and  computes  the  desired  function  value  using  a linear 
interpolation: 


F-Fj  + {Fj  + .|  - F))(ffl  - f,)/(f,- + 1 - f/) 

F is  output  1 from  TIMFN.  Output  2 is  (1  - F),  which  can  be  used  for  negative  logic. 

Two  successive  given  points  can  have  the  same  time  value  to  define  a step  change. 
In  this  case,  the  function  value  of  the  first  point  given  in  the  parameter  sequence  will 
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Type  13 
Infinite-Volume 
Storage  Reservoir 


Type  14 

Compiicated 

Greenhouse 


be  used  for  interpolating  if  tp,  < the  time  at  the  step  and  vice  versa.  For  a repetitive 
cycle,  the  function  value  for  the  first  point,  F^,  must  equal  the  value  of  the  last  point, 
Fj^,  to  avoid  a step  change. 

The  type  13  infinite-volume  storage  reservoir  models  a source  of  water  (or  whatever) 
so  large  that  it  is  unchanging  for  the  length  of  a simulation  run.  The  user  supplies 
values  to  RSVOR  as  parameters,  and  when  called,  RSVOR  simply  passes  them  on 
as  outputs.  As  listed  in  appendix  E,  the  first  parameter  is  N , the  total  number  of 
parameters.  Then  the  rest  of  the  parameters  are  the  constant  values  of  entities  that 
are  normally  variable  inputs  to  other  MEB  subroutines.  The  outputs  from  RSVOR  are 
set  equal  to  these  parameters. 

OUTPUT  (1)  = PARAMETER  (2) 

OUTPUT  (2)  = PARAMETER  (3) 

OUTPUT  (i)  = PARAMETER  (i  1) 

In  addition  to  modeling  a reservoir,  RSVOR  provides  a useful  aid  for  debugging  new 
MEB  subroutines.  Constant  known  values  (often  for  a special  case)  can  be  given  as 
parameters  to  RSVOR,  and  the  inputs  of  the  new  routine  connected  to  the  outputs  of 
RSVOR. 

The  type  14  complicated  greenhouse  is  illustrated  in  figure  12.  Each  arrow  represents 
a flux  of  energy,  with  the  direction  of  arrows  taken  as  positive.  The  fluxes  are  all 
computed  individually  and  are  of  solar  radiation,  S;  thermal  radiation,  R;  convection, 

C;  conduction,  G;  infiltration,  /;  natural  ventilation,  N;  and  energy  from  external 
devices,  X.  Energy  balances  are  written  for  several  surfaces  and  the  air  in  the 
greenhouse,  as  was  done  by  Businger  {1963),  Selcuk  {1970),  Takakura  et  al.  {1971), 
Iwakiri  {1971),  Kimball  {1973),  Maher  and  O’Flaherty  {1973),  Olszewski  and  Trezek 
{1976),  Takami  and  Uchijima  {1977),  Froehlich  et  al.  {1979),  Kindelan  {1980),  Van 
Bavel  et  al.  {1981),  Chandra  et  al.  {1981),  Avissar  and  Mahrer  (7982),  and  Glaub  and 
Trezek  {1981).  The  transfer  coefficients  are  all  computed  individually  without  using 
any  overall  U factors.  Energy  balances  are  written  for  the  outer  cover  surface,  inner 
cover,  vegetation,  soil  surface,  curtain  heat  exchanger,  inside  air,  and  a soil  energy 
storage  layer.  A moisture  balance  also  is  written  for  the  inside  air.  These  energy  and 
moisture  balance  equations  are  solved  for  the  outer  cover  temperature,  T^q,  inner 
cover  temperature,  T^f,  vegetation  temperature,  T^]  soil  surface  temperature,  Tg,  cur- 
tain heat  exchanger  temperature,  T^,  inside  air  temperature,  Tg,;  inside  air  humidity 
ratio,  Tgj,  and  soil  storage  layer  temperature  Tg^. 

The  type  14  complicated  greenhouse  model  can  simulate  almost  any  type  of  conven- 
tional greenhouse  as  well  as  most  proposed  solar  greenhouses.  The  optical  and  ther- 
mal properties  of  the  cover  can  be  varied  under  the  control  of  other  devices,  such  as 
type  12  time  clocks,  to  simulate  pulling  a thermal  screen  at  night  or  shade  cloth  in 
the  summertime.  Provision  is  also  made  for  collecting  energy  from  a fluid  roof 
(Damagnez  1976,  Van  Bavel  et  al.  1981)  and  for  storing  energy  below  the 
greenhouse  in  the  soil  (Dale  et  al.  1979)  or  porous  concrete  (Mears  et  al.  1977).  Cur- 
tain heat  exchangers  (Simpkins  et  al.  1978)  and  infrared  heaters  (Businger  1963, 

Rotz  and  Heins  1982)  are  also  included  in  the  model.  An  insulated  north  wall  covered 
with  high-solar-reflectance,  low-thermal-emittance  material  can  also  be  simulated  by 
merely  using  only  the  area  of  the  cover  that  actually  participates  in  energy  exchange. 
By  judicious  choice  of  the  parameters  governing  natural  ventilation,  even  removal  of 
the  greenhouse  cover  can  be  modeled.  By  proper  selection  of  the  thermal 
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Figure  12. 

Schematic  illustration  of  a type  14  complicated 
greenhouse  showing  all  the  energy  fluxes  considered  by 
the  type  14  model.  The  direction  of  the  arrows  is  the 
direction  of  positive  flow. 


Figure  13. 

Cross  section  of  the  cover  of  a type  14  complicated 
greenhouse. 
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capacitance  and  conductance  properties  of  layers  of  materials  beneath  the 
greenhouse,  a solar  still,  shallow-pond  solar  collector,  swimming  pool,  or  an 
aquaculture  pond  also  can  be  simulated.  The  parameters  needed  for  simulating 
several  of  these  different  structures  are  provided  in  table  1 . 


The  following  notations  will  be  used: 

A area  (m^) 

B soil  heat  conduction  transfer 
functions 

C convection  (W) 

D density  (kg/m^) 

E evapotranspiration  (kg/s) 

F angle  factor  for  thermal  radiation 
exchange 

G conduction  in  soil  or  cover  (W) 

/ infiltration  through  cracks  and  in- 
terstices (W) 

J number  of  external  devices 
K mass  transfer  coefficient  (kg/m^.s) 
L leaf  area  index 
M mass  flow  rate  when  subscript  af- 
fixed (kg/s):  maximum  number  of 
soil  heat  conduction  transfer  func- 
tions when  no  subscript  affixed 
N natural  ventilation  through  ven- 
tilators (W);  number  of  rows  per 
curtain  heat  exchanger 
P pressure  (kPa)  or  parameter 
0 fossil  energy  use  rate  (W) 

R thermal  radiation  (W) 

S solar  radiation  (W/m^) 

T temperature  (®C) 

U overall  heat  transfer  coefficient 
(W/m2.C) 

V modified  angle  factor  that  accounts 
for  direct  plus  reflected  thermal 
radiation 

W humidity  ratio  (kg  H20/kg  air) 

X energy  from  external  device  (W) 

Y shortening  variable 
Z soil  depth  (m) 

b coefficients 

c heat  capacity  at  barometric 
pressure  (J/kg»®C) 


f fraction  of  energy  that  is  radiant 
h heat  transfer  coefficient  (W/m^.  ®C) 
k thermal  conductance  (W/m2.®C) 

( length  of  a row  of  vegetation  (m) 
n number 

p water  vapor  pressure  (kPa) 
r resistance  of  constant-ratio  soil- 
conduction  transfer  functions 
s row  spacing  (m) 
t time(s) 

u velocity  of  air  movement  (m/s) 

(For  infiltration  the  units  are  mm/s 
and  for  natural  ventilation  they  are 
greenhouse  volumes  per  hour.) 

V greenhouse  volume  (m^) 
w width  of  row  (m) 

X height  of  curtain  heat 
exchanger (m) 

y height  of  a row  of  vegetation  (m) 
z average  height  of  greenhouse  (m) 
A increment  of 
a absorptance 

^ angle  for  thermal  radiation  angle 
factor  derivations  (rad) 

7 control  variable 

8 slope  with  respect  to  temperature 
(‘>0--') 

€ emittance 

X thermal  conductivity  (W/mv®C) 

X latent  heat  of  vaporization  (J/kg) 
p reflectance 

a Stefan-Boltzmann  constant 
(W/m2.K4) 

E sum  or  shortening  variable  con- 
sisting of  sum  of  previous  soil  heat 
flux  and  temperature  terms 
T transmittance 
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Subscripts  are  as  follows: 


A on  an  area  basis 
E latent  heat  component 
H sensible  heat  component 
/ for  infiltration 

N for  deepest  soil  layer,  or  maximum 
M for  natural  ventilation 
R for  thermal  radiation  or  radiant 
heater 

S for  solar  radiation 
T transpiration 
W for  humidity  ratio 
a air 
ag  air-soil 
ai  inside  air 
ao  outside  air 
ac  from  air  to  cover 
c cover 

cc  from  cover  to  cover 
ce  from  cover  to  exchanger 
eg  from  cover  to  ground 
ci  inside  cover 

cii  inside  surface  of  inside  cover 
do  outside  surface  of  inside  cover 
CO  outside  cover 
coi  inside  surface  of  outside  cover 
coo  outside  surface  of  outside  cover 
cv  from  cover  to  vegetation 
d deep  soil 

e curtain  heat  exchanger 
ec  from  exchanger  to  cover 
ee  from  exchanger  to  exchanger 
eg  from  exchanger  to  soil 
ev  from  exchanger  to  vegetation 
f fluid 

g soil  or  ground 
gc  from  soil  to  cover 
ge  from  soil  to  exchanger 
goc  from  outside  soil  to  cover 
gv  from  soil  to  vegetation 
gs  soil  storage 
/ inside 

I index  for  external  devices  and  ther- 
mal radiation  terms 


k index  for  thermal  radiation  terms 
I left;  index  for  thermal  radiation 
terms 

m index  for  soil  heat  conduction 
transfer  functions 
n index  for  row  spacing 
o outside 

p for  powered  air  circulation 
r right 

s refers  to  row  spacing  or  to  storage 
layer  in  soil 

so  refers  to  the  soil  surface  side  of  the 
soil  storage  layer 

sd  refers  to  the  deeper  side  of  the  soil 
storage  layer 
V vegetation 
VC  from  vegetation  to  cover 
ve  from  vegetation  to  exchanger 
vg  from  vegetation  to  soil  when  refer- 
ring to  angle  factors  or  average  of 
vegetation  and  soil  when  referring 
to  reflectance 

vs  refers  to  area  of  vegetation  that  ab- 
sorbs radiation 

w from  vegetation  to  vegetation 
X external  device 
xc  external  device  to  cover 
xg  external  device  to  soil 

0 intercept,  control  variable  equals  0, 
or  soil  surface 

1 refers  to  the  topmost  or  first 
member  of  a series,  such  as  a 
series  of  soil  layers,  or  coefficients: 
or  refers  to  the  value  of  the  control 
variable.  Higher  numbers  identify 
higher  members  of  a series. 

Superscripts  are  as  follows: 

* indicates  saturated  condition 

0 old,  from  a previous  condition 

1 upgoing 

1 downcoming 
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Table  1— Possible  values  of  the  parameters  for  a type  14  complicated  greenhouse  to 
simulate  4 greenhouse  types,  a solar  still,  a solar  collector,  and  an 
aquaculture  rearing  pond 


Greenhouse 


Double- 


Param. 

No. 

Symbol 

Fiber- 

glass^ 

Glass 

with 

thermal 

screen2 

film 

thermal 

screen 

with 

curtain 

exchan.3 

Fluid 

roof 

with 

curtain 

heat 

exchan.4 

Glass 

solar 

stil|5 

Shallow 

pond 

solar 

C0II.6 

Solar- 

heated 

aqua- 

culture 

pond7 

1 

J 

2 

2 

1 

0 

0 

0 

0 

2 

Ac 

81.6 

81.6 

81.6 

81.6 

91.1 

101 .0 

101.0 

3 

1 

1 

1 

1 

1 

1 

1 

4 

\/  .12 
''ai 

3 

3 

3 

3 

0.13 

0.01 

0.3 

5 

fii 

1 

1 

1 

1 

1 

1 

1 

6 

§13 

1 

1 

1 

1 

1 

1 

1 

7 

Ne 

1 

1 

20 

1 

1 

1 

1 

8 

Xe 

0 

0 

2 

2 

0 

0 

0 

9 

Pv 

140.13 

140.13 

140.13 

140.13 

1.0 

1.0 

1.0 

10 

Pg 

140.16 

140.16 

140.16 

140.16 

150.02 

160.11 

150.02 

11 

1 170.98 

170.98 

170.98 

170.98 

0 

0 

0 

12 

170.95 

170.95 

170.95 

170.95 

180.96 

180.96 

180.96 

13 

0 

0 

180.95 

200.71 

0 

0 

0 

14 

^xc 

0 

0 

0 

214,190 

0 

0 

0 

15 

^xg 

0 

0 

214,190 

214,190 

0 

0 

0 

16 

^xe 

0 

0 

214,190 

214,190 

0 

0 

0 

17 

5^22 

5.7 

5.7 

5.7 

5.7 

5.7 

5.7 

5.7 

18 

£>222 

3.8 

3.8 

3.8 

3.8 

3.8 

3.8 

3.8 

19 

5323 

1.5 

1.5 

1.5 

1.5 

1.5 

1.5 

1.5 

20 

5423 

0.33 

0.33 

0.33 

0.33 

0.33 

0.33 

0.33 

21 

bs 

249.0 

249.0 

249.0 

249.0 

0 

0 

2537 

22 

be 

244.5 

244.5 

244.5 

244.5 

0 

0 

250 

23 

b? 

240 

240 

240 

240 

0 

0 

2556 

24 

be^^ 

100 

100 

100 

100 

1.E4 

1.E4 

1.E4 

25 

5926 

20,300 

20,300 

20,300 

20,300 

1.E5 

1.E5 

1.E5 

26 

b^o^^ 

17 

17 

17 

17 

10 

10 

10 

27 

27100 

27100 

28400 

27100 

210.0 

210.0 

210.0 

28 

h i29 
"pi 

6 

6 

6 

6 

0 

0 

0 

29 

^RM 

0 

0 

0 

0 

0 

0 

0 

30 

f 

0 

0 

0 

0 

0 

0 

0 

31 

'^Scob 

300.66 

310.88 

320.89 

331.00 

310.88 

340.91 

320.89 

32 

^Sco^ 

0 

0 

0 

0 

0 

0 

331  .00 

33 

^ScPb 

331 .00 

331  .00 

320.89 

350.78 

331.00 

331  .00 

320.89 

34 

0 

360.00 

360.00 

0 

0 

0 

331 .00 

35 

^Sc/^0 

0 

0 

0 

350.33 

0 

0 

0 

36 

’■Sc/ll 

0 

0 

0 

0 

0 

0 

0 

37 

«ScoO 

300.24 

310.02 

320.01 

330.00 

310.02 

340.00 

320.01 

38 

<^Sco^ 

0 

0 

0 

0 

0 

0 

330.00 

39 

«ScP0 

330.00 

330.00 

320.01 

350.11 

330.00 

330.00 

320.01 
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Table  1.— Possible  values  of  the  parameters  for  a type  14  complicated  greenhouse  to 
simulate  4 greenhouse  types,  a solar  still,  a solar  collector,  and  an 
aquaculture  rearing  pond— Continued 


Param. 

No.  Symbol 

Greenhouse 

Double- 

film 

thermal 
Glass  screen 
with  with 

Fiber-  thermai  curtain 
glass^  screen^  exchan.3 

Fluid 

roof 

with 

curtain 

heat 

exchan.4 

Glass 

solar 

Stil|5 

Shallow 

pond 

solar 

C0II.6 

Solar- 

heated 

aqua- 

culture 

pond7 

40 

0 

300.90 

360.90 

0 

0 

0 

330.00 

41 

“Sc/IO 

0 

0 

0 

350.56 

0 

0 

0 

42 

«Sc/''  I 

0 

0 

0 

0 

0 

0 

0 

43 

UcOO 

37160 

38330 

393.5 

409.1 

38330 

412500 

393.5 

44 

Uc0^ 

0 

423.5 

391.8 

0 

0 

0 

431. E4 

45 

Uc^O 

0 

0 

0 

40320 

0 

0 

0 

46 

0 

0 

0 

0 

0 

0 

0 

47 

’■flcoO 

440.07 

450.03 

460.80 

331.00 

450.03 

470.43 

460.80 

48 

^Rco^ 

0 

0 

0 

0 

0 

0 

331 .00 

49 

331.00 

331.00 

460.80 

460.03 

331.00 

331.00 

460.80 

50 

^RcP^ 

0 

200.00 

200.00 

0 

0 

0 

331.00 

51 

0 

0 

0 

460.00 

0 

0 

0 

52 

0 

0 

0 

0 

0 

0 

0 

53 

^coo® 

440.87 

450.90 

460.12 

330.00 

450.90 

470.47 

460.12 

54 

^coo^ 

0 

0 

0 

0 

0 

0 

330.00 

55 

^coP 

440.87 

450.90 

460.12 

330.00 

450.90 

470.47 

460.12 

56 

^coi^ 

0 

0 

0 

0 

0 

0 

330.00 

57 

^cicP^ 

330.00 

330.00 

460.12 

460.87 

330.00 

330.00 

460.12 

58 

^cicP^ 

0 

200.71 

200.71 

0 

0 

0 

330.00 

59 

0 

0 

0 

460.90 

0 

0 

0 

60 

^cio^  1 

0 

0 

0 

0 

0 

0 

0 

61 

CcZ/^O 

330.00 

330.00 

460.12 

460.87 

330.00 

330.00 

460.12 

62 

^ciP^ 

0 

200.84 

200.84 

0 

0 

0 

330.00 

63 

O 

O 

0 

0 

0 

460.90 

0 

0 

0 

64 

^cii^  1 

0 

0 

0 

0 

0 

0 

0 

65 

bii00 

490.12 

500.12 

510.06 

520.12 

530.00 

530.00 

540.06 

66 

bii01 

490.12 

0 

0 

0 

0 

0 

67 

bii10 

0 

550.06 

550.03 

0 

0 

0 

530.00 

68 

bull 

0 

0 

0 

0 

0 

0 

0 

69 

/7I2OO 

500.039 

500.039 

510.02 

520.039 

530.00 

530.00 

540.039 

70 

bigOI 

500.039 

0 

0 

0 

0 

0 

0 

71 

bi2l0 

0 

550.02 

550.01 

0 

0 

0 

530.00 

72 

bi2l1 

0 

0 

0 

0 

0 

0 

0 

73 

biaOO 

560.00 

560.00 

560.00 

560.00 

530.00 

530.00 

560.00 

74 

bigOI 

490.23 

0 

0 

0 

0 

0 

0 

75 

bialO 

0 

560.00 

560.00 

0 

0 

0 

560.00 

76 

bisll 

0 

0 

0 

0 

0 

0 

0 
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Footnotes  for  Table  1 


’ Conventional  greenhouse  glazed  with  single  layer  of  fiberglass.  Tomato  crop 
growing  in  sand. 

2 Single-layer  glasshouse  equipped  with  thermal  screen  which  can  be  drawn  at 
night  (when  7c/ = "I)  conserve  energy.  Thermal  screen  has  properties  of 
polyester-aluminum-vinyl  laminate  (Stauffer  Chemical),  with  reflective 
polyester  side  facing  inward.  Tomato  crop  growing  in  sand. 

3 Double  polyethylene  greenhouse  equipped  with  polyester-aluminum-vinyl 
(polyester  outside)  thermal  screen  and  black  polyethylene  curtain  heat  ex- 
changers which  can  be  drawn  at  night  (when  7c/  = 7e  = ‘')-  Reflective  polyester 
side  faces  upward  to  raise  curtain  temperature  and  thus  reduce  condensation 
(Bailey  1981).  Floor  is  porous  concrete  over  saturated-gravel  energy-storage 
layer  over  polystyrene  (Mears  et  al.  1977,  Kimball  1983).  Floral  crop  growing 
in  containers  on  floor,  but  properties  of  floor  assumed  to  be  dominated  by  the 
porous  concrete. 

4 Fluid-roof  greenhouse  consisting  of  CUCI2  flowing  in  hollow-core  polycarbonate 
similar  to  roof  described  by  Van  Bavel  et  al.  {1981).  Curtain  heat  exchangers 
constructed  from  clear-polyester-aluminum-black-vinyl  laminate  (Stauffer 
Chemical)  and  installed  with  highly  solar  reflective  side  out  (to  avoid  shading 
the  plants).  Used  to  collect  excess  heat  in  daytime  and  heat  greenhouse  at 
night.  Tomato  crop  growing  in  sand. 

5 Single-glass  panes  over  2.5  cm  of  water  over  2.5  cm  of  Styrofoam. 

® Water  1 0 cm  deep  in  polyethylene  bag  insulated  on  back  with  2.5  cm  of 
Styrofoam.  As  described  by  Gopffarth  et  al.  {1968),  bag  consists  of  black 
polyethylene  back  and  clear  polyethylene  top.  Tedlar  (polyvinylfluoride,  E.  I. 
du  Point  de  Nemours  & Co.)  film  1 cm  above  top  provides  insulation  from 
ambient  air. 

7 As  used  by  Brooks  and  Kimball  {1983).  Water  1.5  m deep  over  clay  loam. 
Cover  is  removable,  double-layer  polyethylene,  with  30-cm  air  gap  between 
bottom  layer  and  water  surface.  Cover  removed  by  making  it  transparent  and 

^increasing  natural  ventilation  when  Tco  = 7c/ = Tw  = "I • 

® Cover-to-soil  ratio  of  large  single  greenhouse  is  typically  1.6  (Businger  1963). 

® Glass  planes  leaned  against  each  other  with  no  sidewall. 

10  Cover  films  stretched  horizontally  over  water. 

Unit  area  and  length.  For  actual  areas,  scale  up  parameters  2,  3,  4,  and  5. 

12  For  unit  area,  volumes  are  also  average  heights  of  the  structures. 

13A  1 .0-m  row  spacing,  together  with  values  of  0.8  and  0.2  m for  the 
height  and  width  of  the  row  (inputs  7 and  8),  gives  leaf  area  index  of 
2.0.  For  nongreenhouse  structures,  inputs  7 and  8 should  be  set  to  0. 

^'‘Measured  in  the  USWCL  greenhouse  number  2 with  Spectran  Model 
4048  radiometer.  Soil  (moist  sand)  values  from  9 August  1978  and 
vegetation  values  from  29  September  1978  with  full  tomato  canopy. 


Footnotes  for  Table  1— Continued 


isprom  Fresnel’s  law  (Duffle  and  Beckham  1974,  p.  108),  with  30®  as 
average  angle  of  incidence  and  1 .332  as  index  of  refraction  for  water 
(Hodgman  et  al.  1962,  p.  3073). 

i®From  solar  transmittance  value  of  0.89  (Godbey  et  al.  1979),  assuming 
absorptance  of  clear  polyethylene  is  0.0. 

i^From  Idso  et  al.  (1969)  for  Superstition  sand  and  tomatoes. 

i8From  Konrat’yev  (1965,  p.  32)  for  water.  For  solar  collector  with  water  in 
a polyethylene  bag,  emittance  assumed  to  be  effectively  that  of  water 
due  to  high  transmittance  of  polyethylene  for  thermal  radiation. 

i8From  thermal  reflectance  for  black  polyethylene  of  0.05  (Bailey  1981), 
and  assuming  that  water  inside  will  make  partially  transparent  black 
polyethylene  behave  as  though  nearly  black  in  thermal  region. 

20From  Baily  (1981)  for  polyester  with  aluminized  face  laminated  to  PVC 
(Peerless  film  TS). 

21  Water. 

22From  McAdam’s  expression  (Duffie  and  Beckman  1974,  p.  83). 

23From  ASHRAE  (1972,  p.  40). 

2'»The  bg  value  of  9.0  (volumes/h)/(m/s)  is  from  Maher  and  O’Flaherty 
(1973)  using  data  of  Whittle  and  Lawrence  (7960).  Modeling  data  of 
Kozai  and  Sase  (1978)  about  3 times  larger  than  Whittle  and  Lawrence’s, 
but  Kozai  and  Sase  did  compute  changes  with  AT.  The  bQ  value  of  4.5 
comes  from  the  Kozai  and  Sase  data  divided  by  3.  Value  of  0.0  used  for 
bj  because  assumed,  for  this  case,  that  the  other  2 terms  account  for  all 
natural  ventilation.  Remember  that  control  variable  yj^  (input  13)  actually 
controls  opening  of  any  ventilators,  and  therefore  that  it  should  be  forced 
to  zero  for  no  ventilators  or  closed  ventilators. 

25These  values  can  be  used  to  simulate  complete  removal  of  greenhouse 
cover.  Calculated  from  Equations  14-105  and  14-106  with  Dgo  = 1.2 
kg/m^,  Cao  = 1,015  J/kg»°C,  = 1 m^,  and  Vg,  0.3  m^. 

26Greenhouse  values  from  tomato  data  of  B.  A.  Kimball  et  al.  (7980). 
Values  for  nongreenhouse  structures  force  high  values  for  stomatal 
resistance. 

27Estimated  for  moist  soil  with  about  10  percent  visible  dry  spots. 

28Estimate  based  on  dry  porous  concrete  floor  and  nondry  soil  surfaces  in 
containers. 

29As  measured  with  hot  film  anemometer  in  USWCL  greenhouse,  average 
air  velocity  was  about  0.3  m/s  from  circulation  fans  and  from  cooling 
system  fans  (when  the  circulation  fans  were  off).  The  6 W/m2.®C  value 
for  greenhouses  was  obtained  using  0.3  m/s  in  McAdam’s  expression.22 

30Solar  transmittance  of  fiberglass  was  measuredi'i  at  0.66.  Absorptance 
obtained  from  transmittance,  assuming  reflectance  of  0.10. 
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3’ Solar  transmittance  for  glass  of  0.88  is  from  Godbey  et  al.  (1979).  Ab- 
sorptance  obtained  from  transmittance,  assuming  reflectance  of  0.10 
(Duffie  and  Beckman  1974,  fig.  6.1.3). 

32Solar  transmittance  for  single  layer  of  polyethylene  is  0.89.  Absorptance 
obtained  from  transmittance,  assuming  reflectance  of  0.10. 

33|maginary  cover  made  transparent. 

34Solar  transmittance  for  Tedlar  of  0.91  is  from  Godbey  et  al.  (1979).  Ab- 
sorptance obtained  from  transmittance,  assuming  reflectance  of  0.09. 

35Solar  transmittance  and  absorptance  of  0.33  and  0.56,  respectively,  for 
hollow-core  polycarbonate  filled  with  3 percent  CuClg  are  averages  of  the 
visible  and  near  infrared  values  from  Van  Bavel  et  al.  (1981),  assuming 
solar  spectrum  is  half  visible  and  half  near  infrared.  Solar  transmittance 
of  hollow-core  polycarbonate  with  empty  channels  measured  with  Isco 
spectral  radiometer  averaged  0.78  for  the  solar  spectrum.  Absorptance 
for  empty  polycarbonate  obtained  from  transmittance,  assuming  reflec- 
tance of  0.11. 

36Solar  transmittance  of  clear-polyester-aluminum-black-vinyl  laminate  is  0. 
Absorptance  estimated  to  be  0.15  on  polyester  side  and  0.90  on  vinyl 
side. 

^n’hermal  conductance  of  single  layer  fiberglass  of  160  W/m^.^C 
calculated  from  manufacturer-supplied  value  of  0.16  W/m»®C  for  thermal 
conductivity,  measured  thickness  of  1.1  mm,  and  corregation  factor  of 
1.09. 

38Thermal  conductance  for  single  layer  glass  of  330  W/m^.  ®C  calculated 
from  thermal  conductivity  of  1.05  W/m»®C  (Duffie  and  Beckman  1974) 
and  thickness  of  3.18  mm. 

39Thermal  conductance  of  3.5  W/m^.  for  air  spaces  between  glass  and 
thermal  screen  and  between  polyethylene  layers  is  from  ASHRAE  (1972, 
p.  359)  for  10-cm-thick  horizontal  space  with  effective  emittance  of  0.2 
and  15°C  temperature  difference.  For  2 air  spaces  of  double 
polyethylene  plus  thermal  screen,  value  for  1 space  was  reduced  by 
one-half. 

'‘^Thermal  conductance  of  hollow-core  polycarbonate  calculated  assuming 
parallel  resistances  of  wall  material  and  fluid  in  series  with  inner  and 
outer  wall  resistances.  Dimensions:  total  thickness,  6 mm;  wall 
thicknesses,  0.6  mm;  channels,  4.8  mm  x 4.8  mm.  Thermal  conductivity 
values  used  were  0.192  (Cadillac  Plastic  1976),  0.596,  and  0.026  (Duffie 
and  Beckman  1974)  for  polycarbonate,  water,  and  air,  respectively. 
Overall  thermal  conductances  of  the  materials  are  67  and  9.1  W/m^^C 
when  channels  filled  with  stagnant  water  and  air,  respectively.  Conduc- 
tance of  1 outer  or  inner  wall  layer  is  320  W/m2®C.  For  this  example, 
assumed  that  channels  will  be  drained  and  filled  with  stagnant  air  when 
CuCl2  solution  not  being  circulated  (7f  = 0).  However,  when  fluid  being 
circulated  (7^=1),  only  resistance  is  that  of  a single  wall  layer. 

'‘’Thermal  conductance  for  Tedlar  (polyvinylfluoride)  of  2500  W/m^.^C 
calculated  from  thermal  conductivity  value  for  polyvinylchloride  of  0.19 
W/m»°C  and  thickness  of  76  /tm  (Cadillac  Plastic  1976). 
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'•^Thermal  conductance  of  6.7  W/m^*  °C  between  glass  and  black  vinyl  of 
thermal  screen  is  from  ASHRAE  (1972  p.  359)  for  10-cm-thick  horizontal 
space  with  effective  emittance  of  0.82°  and  15°C  temperature 
difference. 

‘‘^Large  value  of  1.E4  W/m2.°C  used  to  simulate  rapid  heat  transfer 
across  covers  which  have  been  removed  and  are  now  imaginary  (when 

7c/='')- 

'WThermal  transmittance  for  fiberglass  of  0.07  is  from  Godbey  et  al.  (1979). 
Emittance  obtained  from  transmittance,  assuming  reflectance  of  0.06. 

^sThermal  transmittance  for  glass  of  0.03  is  from  Godbey  et  al.  (1979),  and 
emittance  of  0.90  from  Sellers  (1965,  p.  41). 

‘‘^Thermal  transmittance  for  polyethylene  of  0.80  is  from  Godbey  et  al. 
(1979).  This  value  likely  to  be  more  representative  of  101-/im  (4-mil)  films, 
which  might  be  used  as  greenhouse  covering,  than  0.85  value  of  Bailey 
(1981).  Emittance  value  of  0.12  is  from  Bailey  (1981)  and  results  in 
reflectance  of  0.08.  This  reflectance  is  higher  than  the  0.03  listed  by 
Bailey,  but  his  value  contains  measurement  errors  of  both  the  transmit- 
tance and  emittance  determinations. 

'’n’hermal  transmittance  for  Tedlar  of  0.43  is  from  Godbey  et  al.  (1979). 
Emittance  obtained  from  transmittance,  assuming  reflectance  of  0.10. 

**  Godbey  et  al.  (1979)  found  thermal  transmittance  of  1.6-mm  sheet  of 
polycarbonate  to  be  0.06.  Therefore,  thermal  transmittance  for  hollow- 
core  polycarbonate  with  air  in  the  channels  should  be  about  0.03,  and 
reflectance  assumed  to  be  about  0.10.  When  filled  with  CUCI2  solution, 
transmittance  would  be  0. 

'‘s  Based  on  CO2  infiltration  tests  of  3 August  1978  with  the  USWCL 
fiberglass  greenhouses,  average  b.^.^  value  was  0.12  (mm/s)/(m/s)  for  the 
closed  greenhouses.  Value  for  house  (#2)  with  only  evaporative  cooler 
pads  to  close  the  air  intake  was  0.71 . Small  circulation  fans  were  on  in 
all  greenhouses.  When  large  cooling-system  fans  were  on  in  the  closed 
greenhouses,  average  b^3  to  account  for  the  additional  infiltration  was 
0.23. 

50  From  Okada  and  Takakura  (1973)  for  glasshouse. 

51  American  Society  of  Agricultural  Engineers  (1982)  lists  infiltration  rate  of 
double  polyethylene  greenhouse  as  half  that  of  new  glasshouse. 

52  Assume  equivalent  to  that  of  new  glasshouse. 

53  Assume  negligible  infiltration. 

54  Assume  that  double-polyethylene-covered  aquaculture  pond  equivalent  to 
double-polyethylene-covered  greenhouse. 

55  Assume  thermal  screen  reduces  infiltration  by  50  percent. 

56  Zero  used,  assuming  all  infilitration  accounted  for  by  other  terms. 


Energy  balance  equations 


Referring  to  figures  12  and  13,  the  energy  balances  are— 
For  the  outer  greenhouse  cover 


^co  ^con  '*■  ^coH  ^coE  ~ ® 
For  the  inner  greenhouse  cover 

^ci  ^cin  “ ^ciH  "*■  ^ciE  "*■  ® 

For  the  vegetation 

Sv  + Rvn  ~ ^vH  ~ ^vE  + ^Rv  = 

For  the  soil  surface 


+ ^gn  ~ ^gH  ~ ^gE  + ^Rg  “ ^0  “ ^ 


For  the  curtain  heat  exchanger 


(14-1) 


(14-2) 


(14-3) 


(14-4) 


^en~^eH~^eE'^^e-^  (14—5) 

For  the  greenhouse  air 

^gH  + ^gE  + ^vH  + ^vE  + ^eH  + ^eE  ~ ^ciH  ~ ^ciE  ~^H~^E~^H 

-A/£+i;X^y+i;X£y  + Xp3  = 0 (14-6) 

j i 

The  latent  energy  or  moisture  balance  for  the  greenhouse  air  is 
^gE ^vE  + ^eE ~ ^ciE -Ie~^E'^  ^^Ej ~ ^ 

The  energy  balance  for  a soil  storage  layer  is 

G,o  + Xg-G,^  = 0 (14-8) 

The  individual  fluxes  in  equations  14-1  through  14-8  are  defined  in  detail  in  the 
following  sections.  The  equations  contain  the  unknown  temperatures  T^q,  Tf^i,  Tgg 
^e<  ^al>  and  Tgg,  as  well  as  the  unknown  air  humidity  ratio,  Wgj.  These  unknowns  are 
computed  by  subroutine  CGH  as  solutions  to  equations  14-1  through  14-8.  Refer  to 
the  code  table  in  appendix  E and  the  special  forms  in  appendix  D to  see  how  the 
many  parameters  and  inputs  are  given  to  subroutine  CGH. 


Greenhouse,  vegetation,  and  curtain  heat  exchanger  geometry 


Because  the  geometry  of  crops  growing  in  greenhouses  is  exceedingly  complex, 
several  first-order  approximations  are  made.  Referring  to  figures  14  through  16,  the 
crop  is  assumed  to  be  growing  directly  in  the  soil  in  rows  spaced  s meters  apart  and 
( meters  long,  where  ( and  s are  parameters.  If  I and  s are  set  equal  to  zero  by  the 
user,  the  program  will  reset  them  to  0.1  and  1.0  m,  respectively. 

The  number  of  rows  of  vegetation,  is  computed  from 

n,=Ag/{gs)  (14-9) 

The  height  of  the  vegetation,  y,  and  the  row  width,  w,  are  inputs;  so  the  user  can 
“grow”  a crop  using  these  two  variables  from  a type  12  time  function  or  similar 
device.  If  w or  y is  given  as  zero,  the  program  will  set  it  to  0.001  m,  thus  providing  a 
physically  insignificant,  yet  nonzero  amount  of  vegetation.  Ignoring  end  effects,  the 
area  of  vegetation  is  computed  from 

A^  = 2n^{w  + y)  (14-10) 

The  area  of  vegetation  which  absorbs  solar  radiation,  A^q,  is  assumed  to  be  the  top 
of  rows  plus  the  upper  half  of  one  side. 

Avs  = nJ{w  + y/2)  (14-11) 

The  upper  limit  to  A^^  is  the  soil  area,  Ag.  Also,  the  area  of  soil  that  receives  solar 
radiation  is  assumed  to  be  Ag-A^^. 


Figure  14. 

Cross  section  through  greenhouse,  with  vegetation  rows 
and  curtain  heat  exchangers  spaced  Nq  rows  apart.  The 
id's  are  angles  which  illustrate  the  angle  factors  for 
thermal  radiation  emitted  from  the  exchangers. 
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GREENHOUSE 


Cross  section  through  greenhouse  with  vegetation  rows 
and  curtain  heat  exchangers  spaced  Nq  rows  apart.  The 
jS’s  are  angles  which  illustrate  the  angle  factors  for  radia- 
tion emitted  from  the  soil  surface. 


GREENHOUSE 

COVER 


Figure  16. 

Cross  section  through  greenhouse  with  vegetation  rows 
and  curtain  heat  exchangers  spaced  A/g  rows  apart.  The 
/3’s  are  angles  which  illustrate  the  angle  factors  for 
thermal  radiation  emitted  from  the  vegetation  (i8@-i3g) 
and  from  the  cover  (i8io)-  The  dashed  line  indicates  the 
effective  height  of  the  cover. 


The  average  reflectance  of  the  soil  and  vegetation  for  solar  radiation,  p,,  is  computed 
from 


+ Pg('^g  “ ^vs))  (14-12) 

The  curtain  heat  exchangers’  area  is  a prominent  feature  in  figures  14  through  16. 
The  exchangers  are  an  experimental  device  (Simpkins  et  al.  1978)  for  inexpensively 
increasing  the  exchange  of  energy  between  the  greenhouse  and  a source  of  hot  or 
cold  liquid.  They  consist  of  a sheet  of  plastic  film  draped  over  a liquid  distribution 
pipe.  The  liquid  runs  down  the  inside  between  the  film  and  pipe  and  is  drained  away 
at  the  bottom  by  some  means.  It  is  assumed  that  the  curtains  do  not  absorb  any 
significant  amount  of  solar  radiation.  In  practice,  this  assumption  would  usually  be 
satisfied  because  (1)  the  curtains  are  only  used  at  night  and  are  stored  by  some 
mechanism  during  the  day,  (2)  the  curtains  are  made  of  a material  with  a high  reflec- 
tance for  solar  radiation,  or  (3)  the  curtains  are  shorter  than  the  crop  for  much  of  a 
cropping  cycle. 

To  model  the  storage  of  curtains  during  the  daytime,  the  height  of  the  curtain,  x,  is 
the  product  of  the  parameter  maximum  height,  Xg,  and  an  input  control  variable, 
that  can  vary  from  0 to  1 and  can  be  supplied  by  a type  12  time  clock  or  similar 
device.  To  prevent  any  mathematical  problems  with  zero  denominators,  the  program 
assigns  a minimum  value  of  1 mm  to  x.  Thus,  the  greenhouse  always  has  curtain 
heat  exchangers,  but  they  can  be  made  so  small  as  to  be  insignificant.  The  user 
must  also  specify  the  number  (not  zero)  of  vegetation  rows  per  individual  curtain,  A/g. 
Then,  the  program  computes  the  total  exchanger  area,  Aq,  from 

/\g  = 2n/x//Vg  (14-13) 

The  curtains  are  assumed  to  be  positioned  in  the  middle  of  double  rows,  as  il- 
lustrated in  figure  14.  This  placement  frees  the  isles  for  workers  and  negates  the 
need  for  moving  the  curtains,  but  they  could  be  too  cold  or  hot  for  maximum  produc- 
tion of  the  adjacent  rows.  As  far  as  the  energy  exchange  is  concerned,  the  assump- 
tion about  placement  mostly  affects  angle  factors  for  thermal  radiation.  These  can  be 
estimated  only  crudely,  at  best;  and  the  the  angle  factors  for  between-row  placement 
would  not  be  greatly  different  from  those  for  within-row  placement,  which  are  derived 
in  the  next  section. 

Changing  greenhouse  cover  properties 

The  characteristics  of  the  greenhouse  cover  can  be  changed  by  varying  the  value  of 
three  control  variables,  y^j,  and  yf.  For  example,  the  user  can  simulate  shading 
the  greenhouse  in  the  summertime  with  an  outside  coating  of  whitewash  by  changing 
the  outer  cover  control  variable,  7^^,  with  a type  12  time  function  (calendar).  Likewise, 
the  drawing  of  a thermal  screen  at  night  can  be  simulated  by  changing  7^,  with 
another  type  12  time  function  (clock).  The  properties  of  the  inside  cover  also  can  be 
changed  by  yf,  the  control  variable  for  the  flow  of  any  fluid  in  the  roof. 
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To  accomplish  the  transition  from  one  cover  condition  to  another,  the  user  must 
supply  at  least  two  sets  of  cover  parameters:  one  set  for  when  7 = 0 and  the  other  for 
when  7 = 1.  Then  subroutine  CGH  performs  a linear  interpolation  from  the  set  for 
7 = 0 to  the  other  set  for  7 = 1 , as  indicated  by  the  equation 


P=0-y)Po  + Pi  (14-14) 

where  P is  the  property  value  for  the  particular  simulation  time,  and  Pq  and  P^  are 
the  values  of  the  cover  parameters  corresponding  to  7 = 0 and  7 = 1,  respectively. 

Some  of  the  cover  properties  can  change  with  two  control  variables.  For  example, 
the  thermal  conductance,  L/^,  can  change  with  both  7^  and  7^,  (see  appendix  E).  For 
these  properties  the  user  must  supply  four  sets  of  parameters,  and  then  the  program 
performs  a linear  interpolation  from  one  set  to  another  according  to 

^ = (1  - 7r)(1  - 7c/)^00  + (1  ” yhciPo^  + 7/(1  - Tc/)^1 0 + Wc/  1 (1 4-1 5) 

where  P is  the  property  value  used  for  the  particular  simulation  and  Pqo'  ^oi>  ^io> 
and  are  the  values  of  the  parameters  corresponding  to  yf=y^i=0-,  7^=0,  7c/=1: 
7^=1,  7c/ = 0;  and  yf=y^j  = l,  respectively.  The  parameters  for  several  different  covers 
are  provided  in  table  1 . 

Solar  energy 

The  most  important  energy  flux  in  a greenhouse  is,  of  course,  the  solar  radiation  ab- 
sorbed by  the  vegetation,  S^,  because  it  is  this  energy  that  drives  photosynthesis 
and,  ultimateiy,  the  marketable  yield.  This  program  computes  from 

= Sc^j^sTgco^'sc/l  “ Pv)  (1 4-1 6) 

where  Sq  is  the  solar  radiation  on  a horizontal  surface  outside  the  greenhouse  (input 
1)>  ’’SCO  ^Sci  1^®  transmittances  of  the  outer  and  inner  cover  for  solar  radia- 
tion, and  p^  is  the  reflectance  of  the  vegetation. 

The  solar  radiation  absorbed  by  the  soil  is  computed  similarly: 

Sg  = SoiAg  - A^s)'^sco'^saO  -Pg)  (14-17) 

The  solar  radiation  absorbed  at  the  outer  cover,  S^g,  and  that  absorbed  at  the  inner 
cover.  Sc/,  are  computed  from 

^co  - ^o^g®Sco(1  ^Sco’’Sc/Pv'g^Sc/)  (1 4-1  ®) 

^ci  = So^g’’Sco"Sc/(1  '^ScPvg)  (1 4-1 9) 

where  a^co  and  0:5^,  are  absorptances  of  the  outer  and  inner  cover  for  solar 
radiation. 

Th®  Tgpo  and  of  the  outer  cover  can  change  with  y^^,  whereas  t^c/  and 
change  with  both  7/  and  y^j.  Therefore,  the  user  must  supply  two  values  each  of  rgco 
and  agco  ®nd  four  values  each  of  Tg^/  and  age,  (appendix  E). 


Greenhouse-cover  heat  fluxes  and  characteristics 


A schematic  cross  section  of  the  greenhouse  cover  is  shown  in  figure  13.  It  has  an 
inner  surface  of  temperatue  and  an  outer  surface  with  temperature  T^q.  Heat  is 
transferred  to  the  outer  surface  according  to  the  equation 

Gc  = ^A(7’c/-W  (14-20) 

where  L/^  is  an  overall  transfer  coefficient. 

For  a single-layer  greenhouse  cover,  is  simply  the  thermal  conductance  of  the 
cover  material.  For  a multiple-layer  greenhouse  cover,  such  as  a cover  with  a double 
layer  of  polyethylene  and  a thermal  screen,  is  the  overall  thermal  conductance  of 
the  material  of  each  layer  and  the  insulating  air  layers  (ASHRAE  1972,  p.  348).  For  a 
double-layer  greenhouse  cover,  can  simply  be  the  conductance  of  the  intervening 
air  layer,  and  the  user  can  alter  the  internal  emittances  of  the  two  layers  to  simulate 
the  thermal  radiation  exchange  of  the  two  layers.  Specifying  the  internal  emittances  is 
particularly  useful  for  simulating  covers  made  of  plastics  that  are  partially  transparent 
to  thermal  radiation,  such  as  polyethylene. 

Also,  figures  12  and  13  show  an  external  energy  flux,  X^.  This  flux  represents  a flow 
of  fluid  through  the  roof,  which  absorbs  near-infrared  radiation  as  proposed  by 
Damagnez  (1976).  It  is  assumed  that  the  rate  of  heat  transfer  from  the  bulk  of  the 
fluid  is  fast  enough  that  any  temperature  difference  between  the  average  bulk  fluid 
temperature  and  7^,  is  negligible.  Proper  choice  of  can  provide  insulation  for  the 
fluid  from  the  outer  surface  but  not  from  the  inner.  Thus,  is  assumed  to  vary  with 
both  jf  and  y^j,  and  therefore  the  user  must  supply  four  values  as  indicated  in  ap- 
pendix E. 

Angle  factors  for  thermal  radiation  exchange 

The  angle  factor  from  one  surface  to  another  is  defined  as  the  fraction  of  the  radiant 
energy  emitted  by  the  first  surface  which  impinges  upon  the  second  (Gebhart  1961, 
p.  99).  Starting  with  the  covers,  it  is  assumed  that  they  both  have  approximately  the 
same  area,  so  the  angle  factor  between  the  two  covers  is  1 .0.  The  inner  cover  is 
convex,  so  some  radiation  emitted  by  one  part  of  the  inner  cover  can  be  absorbed  by 
another  part  of  the  inner  cover.  Thus,  the  inner  cover  sees  itself  by  an  amount  that 
varies  with  the  ratio  of  cover  to  ground  or  soil  area.  This  angle  factor  for  the  inner 
cover  seeing  itself,  is  computed  from 

F,^  = 1-(Ag/AJ  (14-21) 

The  outer  cover  is  assumed  to  see  itself  by  the  same  angle  factor,  multiplied  by 
the  transmittance  of  the  inner  cover  squared,  to  account  for  absorption  in  two 
thicknesses  of  the  inner  cover  material. 

Next,  consider  the  angle  factor  from  curtain  heat  exchanger  to  the  cover,  Fg^.  Refer- 
ring to  figure  14,  the  fraction  of  the  radiation  emitted  by  a point  on  the  right  side  of 
the  exchanger  halfway  between  the  top  of  the  vegetation  and  the  top  of  the  ex- 
changer that  reaches  the  cover  is  [(7r-i3.,)/2]/7r,  where  |3■^  is  the  angle  shown  in  ra- 
dians. To  a first  approximation,  the  angle,  |3■^,  will  be  constant  if  the  point  were 
moved  up  or  down  anywhere  between  the  top  of  the  vegetation  and  top  of  the  ex- 
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changer.  It  is  also  assumed  that  none  of  the  radiation  emitted  by  the  exchanger 
below  the  top  of  the  vegetation  reaches  the  cover.  Therefore, 


or 


(14-22) 


where 


/3i  =2arctan[(x-y)/(2A/gS)] 


(14-23) 


If  there  is  enough  space  between  the  rows,  some  of  the  radiation  emitted  by  the 
exchanger  above  the  rows  can  penetrate  to  the  soil  or  ground  surface.  This  penetra- 
tion can  occur  for  each  row  where  /33  > ^2-  Thus,  to  a first  approximation 


(14-24) 


^eg~^ 


n = ^ 


; X<y 


for  all  positive  02n~l^2n-  angles  are  given  by 

' ns-{wl2)-{s-w) 


^2n  = arctan 


(x-y)/2 


(14-25) 


= arctan 


ns-{wl2) 
y + {x-y)l2 


(14-26) 


All  of  the  radiation  emitted  by  the  exchanger  below  the  top  of  the  vegetation  is  inter- 
cepted by  the  vegetation.  Also,  by  symmetry,  the  amount  of  the  radiation  emitted  by 
the  exchanger  above  the  vegetation  and  going  to  the  soil  plus  that  going  to  the 
vegetation  must  equal  the  amount  going  to  the  cover.  Therefore, 


y 

= 7 + (^ec  -Feg)  ’ ^>y  4-27) 

Fev=  1 : 

The  angle  factors  for  radiation  emitted  from  the  soil  can  be  estimated  from  figure  15. 
Only  the  between-row  spaces  of  fractional  area  (s-w)/s  view  the  cover  with  a frac- 
tional angle  of  approximately  Only  positive  values  of  13^  and  (85^  are 

included,  so  the  shown  in  figure  15  would  be  set  to  zero.  The  fractional  angle 
must  be  the  average  for  all  the  between-row  spaces  between  each  curtain  heat 
exchanger.  Therefore, 


^gc~ 


^4  ^5rn^ 


(14-28) 


where 


/34  = 2arctan[(s  - w)l{2y)] 


(14-29) 


= arctan 


/Sgrn  = arctan 


ns -(s/2) 


- arctan 


2y 


s- w 


A/gS  - ns  + (s/2) 


- arctan 


2y 


s- w 


(14-30) 


(14-31) 


Similarly,  the  between-row  spaces  view  the  curtain  heat  exchanger  with  a fractional 
angle  of  + where  again  only  positive  angles  are  included.  Therefore, 

averaging  over  all  the  between-row  spaces. 


yN;Jn^^y  ; 


(14-32) 


Any  radiation  emitted  by  the  soil  that  is  not  intercepted  by  the  cover  or  heat  ex- 
changers must  be  intercepted  by  the  vegetation.  Therefore, 


^gv  ~ ^ ^gc  ^ge 


(14-33) 


The  fraction  of  the  radiation  emitted  by  the  vegetation  and  then  absorbed  by  the  soil 
can  be  estimated  from  figure  16.  All  radiation  emitted  below  the  rows  is  intercepted 
by  the  soil.  Of  the  radiation  emitted  by  the  sides  of  the  rows,  a fraction  ^qItt  is  inter- 
cepted by  a fraction  of  the  soil  (s-w)/s.  Therefore,  the  angle  factor  for  radiation 
transmission  from  vegetation  to  ground  is  an  area-weighted  average: 


w + 2y{l3QlTr) 
^vg=  2w-h2y 


(14-34) 


where 


(30  = arctan[2(s  - w)/y] 


(14-35) 


Again  referring  to  figure  16,  the  average  angle  by  which  the  sides  of  the  rows  view 
the  cover  is  I3q(  + ^q^,  and  that  by  which  the  tops  of  the  rows  view  the  cover  is 
+ Averaging  these  angles  for  all  the  rows  and  weighting  for  area  yield 


where 


Ne  N, 

n=^  n=^ 


n = ^ 

n = 1 

(14-36) 

' VC  ~ 

ttNq  {2y-2w) 

= arctan 

~ ns  - (w/2) 
x-(y/2) 

(14-37) 

“ NgS -ns  + {s-w)  + (w/2) 

(14-38) 

= arctan 

x-(y/2) 

x-y 

(14-39) 

= arctan 

(n-  1)s-i-(w/4) 

I^Qrn  = arctan 


x-y 

A/gS-(/7-  1)s-(w/4) 


(14-40) 
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The  maximum  allowable  size  for  or  is  /3g.  If  x<y  then  ^Q(^  = PQ^  = ir/2. 

The  vegetation  also  views  itself  as  illustrated  by  angle  187  in  figure  16.  If  there  were 
no  heat  exchangers,  an  estimate  of  the  angle  factor  for  viewing  itself,  F^,  could  be 
written  {y0j)l[Tr(y  + w)],  where 


87  = 2arctan[(y/2)/(s  - w)]  (1 4-41 ) 

However,  for  the  rows  in  which  the  heat  exchanger  is  placed,  it  is  assumed  that  the 
exchanger  reduces  the  self-viewing  by  0.5  if  x>y  or  by  (0.5x/y)  if  x<y. 

Thus,  the  self-viewing  is  weighted  for  the  number  of  rows  with  and  without 
exchanger: 

(A/e-1)y87  + 0.5y87 

Fvv  = (14-42) 

wNgiy  + w) 

(A/g  - 1 )y87  -I-  0.5y87  + 0.5(y  - x)0j 

= : x<y  (14-43) 

7rA/g(y  -I-  w) 


Finally,  any  radiation  emitted  by  the  vegetation  and  not  intercepted  by  the  soil,  cover, 
or  vegetation  itself  must  impinge  on  the  heat  exchanger.  Therefore, 

^i/e  = 1 - Fvg  - Fvc  - Fw  (14-44) 

Angle  factors  from  the  cover  to  the  vegetation,  soil,  and  exchanger  are  derived  below 
with  reference  to  an  imaginary  cover  that  is  an  infinitive  plane  over  the  crop  and 
parallel  to  the  soil  plane.  The  angle  factors  are  corrected  for  the  actual  cover  seeing 
itself  by  multiplying  with  (A^/Ag),  derived  from  equation  14-21. 

The  angle  factor  from  the  cover  to  the  curtain  heat  exchanger  can  be  derived  by 
referring  to  figure  16.  For  the  purposes  of  this  first  approximation  analysis,  the  effec- 
tive height  of  the  cover  can  be  the  height  of  the  curtain  heat  exchangers,  as  in- 
dicated by  the  dashed  line.  Then, 


2(x-y) 

^10“ 

arctan 

A/gS 

(14-45) 

/ 2/3,0  \ 

and  then 

CD 

It 

(0 

if  x>y 

(14-46) 

Fee 

0 

if  x<y 

Because  the  cover  and  soil  surface  are  assumed  to  be,  in  effect,  infinite  parallel 
planes  for  thermal  radiation  exchange,  the  imaginary  plane  cover  must  view  the  soil 
as  much  as  the  soil  views  the  cover.  Therefore, 


Fqq  ~ Fgci^g^^c^ 


(14-47) 


Any  radiation  emitted  by  the  cover  and  not  intercepted  by  the  soil  or  heat  exchangers 
must  impinge  on  the  vegetation.  Therefore, 

Fcv-^-Fog-Foe-Fcc  04-48) 

The  cover  of  the  greenhouse  also  views  soil  and  other  surfaces  outside  the 
greenhouse  and,  of  course,  the  sky.  It  is  assumed  that  a portion  of  the  cover  equal 
to  the  soil  area  receives  only  sky  radiation  from  above  and  that  the  rest  of  the  cover 
corresponds  to  vertical  walls  which  see  half  the  sky  and  half  the  soil  or  other  sur- 
faces, which  are  at  the  outside  air  temperature.  The  angle  factor  for  sky  radiation  im- 
pinging on  the  cover  is  computed  from 

F^,  = ^+[{AJAg)-^]l2  (14-49) 

and  the  factor  for  outside  soil  and  other  surfaces  impinging  on  the  cover  is  computed 
from 


Fgoc  = [iAclAg)-m  (14-50) 

Thermal  radiation 

Thermal  radiation  fluxes  emitted  from  the  outer  cover,  inner  cover,  vegetation,  and 
soil  surface  are  computed  using  Stefan’s  law.  Black-body  radiation  from  the  outside 
cover,  is  computed  from 


«co=V(7’co  + 273.16)4  (14-51) 

Then,  the  thermal  radiation  emitted  by  the  outer  and  inner  sides  of  the  outer  cover  is 
given  by  and  R^.^,  where  and  e^o,  are  the  emittances  of  the  outer 

and  inner  sides  of  the  outer  cover.  Similarly,  the  black-body  radiation  for  the  inner 
cover  is  computed  from 


«c/  = V(7'c, + 273.16)4  (14-52) 

Then,  the  thermal  radiation  emited  by  the  outer  and  inner  sides  of  the  inner  cover  is 
computed  from  R^j  and  €g,y  R^j,  respectively,  where  e^yg  and  egy,-  are  the  emittances 
of  the  outer  and  inner  sides  of  the  inner  cover. 

The  thermal  radiation  emitted  from  the  vegetation  is  computed  from 

R^  = A^a{T^  + 273.16)^  (14-53) 

The  thermal  radiations  emitted  from  the  soil  and  curtain  heat  exchanger  are  com- 
puted similarly  using  the  same  equation  except  that  the  subscripts  g and  e would  be 
used  instead.  The  user  must  supply  the  emittances,  e^,  eg,  and  eg  as  parameters. 

Much  of  the  versatility  (and  complexity)  of  this  model  is  accomplished  by  providing 
the  capability  to  change  the  properties  of  the  covers  with  control  variables  (equations 
14-14  and  14-15).  These  properties  include  the  emittances,  eggg,  egg,-,  Cgyg,  and  Cgy,- 
and  the  transmittances  of  the  inner  and  outer  cover  for  thermal  radiation,  Tfjgg  and 
Tyiygy.  Tho  outor  covor  properties,  Cggg,  egg,,  and  r^jgg,  are  assumed  to  vary  with  the 
control  variable,  7gg,  for  outer  cover  properties.  Therefore,  the  user  must  supply  two 
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values  for  each  of  these  three  parameters,  as  discussed  previously  and  as  listed  in 
appendix  E.  The  inner  cover  properties,  e^/o,  ^cih  ^Rcr  assumed  to  vary  both 
with  the  cover  control  variable,  7^,,  and  with  the  fluid  flow  control  variable,  jf. 
Therefore,  the  user  must  supply  four  values  of  each  of  these  latter  three  variables,  as 
also  discussed  previously  and  listed  in  appendix  E. 

Table  1 provides  values  of  these  parameters  for  several  different  cover  examples.  To 
simulate  a simple  glasshouse,  which  is  opaque  to  thermal  radiation,  the  user  could 
set  the  Tflco-  ’■flc/-  ^coh  ^cio  equal  to  zero.  Then,  there  would  be  thermal  radia- 
tion exchange  only  on  the  outer  and  inner  surfaces  of  the  glass.  The  user  could  also 
set  Tflc,  = 1 0 and  = e^/,  = 0.0  so  that  an  imaginary  inner  cover  is  completely 
transparent.  To  simulate  a double-layer  dear-polyethylene  house  with  a black- 
polyethylene  thermal  screen  that  is  drawn  at  night,  the  user  would  specify 
TRco  = TFici-^-^^  (Godbey  et  al.  1979)  and  (assuming  6 percent  reflection) 
fcoo  = fco/  = ec/o  = fc//  = 0.14  for  when  7co  = 7c/  = 0-  Then,  when  7c,  = 1 and  the  thermal 
screen  is  drawn,  the  specifications  would  be  Tflc/  = 0.0  and  6^,0  = €(,//= 0.94.  If  the  ther- 
mal screen  is  made  of  other  materials,  the  emittances  characteristic  of  that  material 
would  be  specified  instead. 

Whenever  the  saturation  humidity  ratio  (defined  in  the  next  section)  of  any  of  the  five 
surfaces  is  less  than  the  humidity  ratio  of  the  adjacent  air,  water  is  assumed  to  con- 
dense in  a film  on  that  surface.  Then,  the  program  will  use  an  emittance  value  of 
0.96  for  water  (Kondrat’yev  1965,  p.  32)  for  that  surface  instead  of  the  dry  surface 
emittance  values  supplied  as  parameters  by  the  user.  Similarly,  if  the  water  conden- 
sation is  detected  on  the  outer  or  inner  cover  surfaces,  then  the  transmittance,  rp^,  of 
that  cover  surface  is  assumed  to  go  to  0.0.  It  is  further  assumed  that  the  water  will 
not  accumulate  to  any  significant  extent  on  the  surface  but,  instead,  will  drain  away 
in  some  manner.  Therefore,  when  the  temperature  of  the  surface  rises  so  that  its 
saturation  humidity  ratio  is  above  the  humidity  ratio  of  the  adjacent  air,  then  the  sur- 
face instantly  dries  and  the  dry-surface  emittance  and  transmittance  values  are  used 
again. 

Any  internal  air  space  between  the  outer  and  inner  covers  is  assumed  to  be  dry 
enough  that  water  does  not  condense  on  the  inner  surface  of  the  outside  cover  or  on 
the  outer  surface  of  the  inner  cover.  This  should  be  a good  assumption  for  most 
greenhouses,  including  double-layer  polyethylene  houses,  all  single-layer  houses,  and 
all  greenhouses,  made  of  “twin-wall”  plastic  materials. 

A major  class  of  greenhouses  that  would  not  meet  this  assumption  comprises  glass 
or  single-layer  polyethylene  houses  with  poorly  sealed  thermal  screens.  A common 
problem  with  these  houses  is  that  water  condenses  on  the  inside  of  the  outer  surface 
and  drips  down  on  top  of  the  thermal  screen.  Even  for  these  houses,  however,  the 
dry  internal  cover  assumption  should  not  have  much  effect  on  the  overall  energy 
balances  because  any  good  thermal  screen  should  be  opaque  to  thermal  radiation. 
Therefore,  the  main  discrepancy  between  the  model  and  the  actual  greenhouse 
would  be  that  the  model  would  predict  sky  radiation  to  be  absorbed  on  the  inner 
cover  (thermal  screen),  whereas  the  condensate  would  actually  absorb  the  sky  radia- 
tion on  the  outer  cover. 

Even  though  the  assumption  is  made  that  water  does  not  condense  on  the  inner  side 
of  the  outer  cover  or  the  outer  side  of  the  inner  cover,  the  effective  emittances,  e^o/ 
and  e^o/,  for  these  sides  internal  to  the  cover  can  be  affected  by  condensate  on  the 


outer  side  of  the  outer  cover  or  the  inner  side  of  the  inner  cover  if  the  dry  cover(s)  is 
transparent  to  thermal  radiation.  Therefore,  when  condensate  is  detected  on  the  outer 
side  of  the  outer  cover,  the  emittance  for  the  inner  side  of  the  outer  cover  is  com- 
puted from 


^coi  ~ ^co/(clry)  ■*"  ^flco(dry)(®-^®  ^co/(dry))  4—54) 

Similarly,  when  condensate  is  detected  on  the  inner  side  of  the  inner  cover,  the  emit- 
tance for  the  outer  side  of  the  inner  cover  is  computed  from 

^cio  ~ ^c/o(dry)  ^flc/(dry)(®'^®  ~ ^c/o(dry))  4—55) 

The  user-supplied  parameter  values  for  the  transmittances  and  emittances  are  for  the 
dry  condition. 

When  a user  wishes  to  simulate  a single-cover  greenhouse  or  complete  removal  of 
the  greenhouse  cover,  the  transmittances  should  be  set  to  1 .0  and  the  emittances  to 
0.0  for  the  cover(s)  that  is  to  be  imaginary.  The  program  will  use  a transmittance  of 
1 .0  as  a flag  to  indicate  that  the  cover  is  imaginary:  and,  therefore,  if  the  cover 
temperature  drops  below  the  dewpoint,  the  program  will  continue  to  use  the  1 .0 
transmittance  and  0.0  emittance  rather  than  water  film  values. 

Now  that  the  angle  factors,  thermal  radiation  fluxes,  emittances,  and  transmittances 
have  all  been  defined,  the  equations  that  describe  the  net  thermal  radiation  on  each 
surface  can  be  written.  For  the  outer  cover, 

^con  ~ ^cool^acAg^ao  ^goc^g^go  ~ ^col 

^co/[  ~ ^co  ^cio^ci  ^co/Pc/o^col  4—56) 

The  sky  radiation,  (W/m^),  is  input  2 for  subroutine  CGH,  and  it  will  generally  be 
supplied  by  output  21  of  a type  1 reader.  It  is  not  routinely  measured  by  the  National 
Weather  Service,  but  it  can  be  calculated  from  air  temperature  and  vapor  pressure 
data  using  the  method  of  Idso  {1981)  for  clear  skies  or  of  Kimball  et  al.  {1982)  for 
cloudy  skies.  The  second  term  accounts  for  the  radiation  from  soil  outside  the 
greenhouse,  Rg^  (W/m^).  It  is  assumed  to  be  black-body  radiation  at  outside  air 
temperature: 


^go  = ‘^(Ta/  + 273.16)4  (14-57) 

In  equation  14-56  the  terms  in  the  first  set  of  brackets  are  for  the  radiation  ex- 
changes on  the  outside  of  the  outer  cover.  They  are  the  sky  radiation,  (plus)  the  out- 
side soil  radiation,  and  (minus)  the  radiation  emitted  by  the  outer  cover.  The  terms  in 
the  second  set  of  brackets  are  for  the  radiation  exchanges  occurring  at  the  inside  of 
the  outer  cover.  They  are  (minus)  the  radiation  emitted  by  the  inside  of  the  outer 
cover,  (plus)  radiation  from  the  inner  cover,  (plus)  radiation  emitted  upward  from  sur- 
faces below  the  cover,  R\  and  then  transmitted  through  the  inner  cover,  and  (plus) 
radiation  emitted  by  the  outer  cover  and  then  reflected  back  by  the  outside  of  the  in- 
ner cover. 

Equation  14-56  and  the  ones  that  follow  contain  first-order  reflection  terms.  In  some 
practical  cases,  ignoring  the  first-order  reflection  caused  a 20  percent  error  in  net 
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radiation  prediction;  so  the  first-order  reflections  are  included.  Second-order  and 
higher  order  reflections  are  ignored,  however. 


For  the  inner  cover 


(14-58) 


Here  the  terms  in  the  first  set  of  brackets  are  for  the  exchanges  on  the  outer  side  of 
the  inner  cover.  They  include  sky  radiation,  (plus)  outside  soil  radiation  transmitted 
through  the  outer  cover,  (plus)  radiation  from  the  outer  cover,  (minus)  radiation  emit- 
ted by  the  inner  cover,  and  (plus)  radiation  emitted  by  the  outside  of  the  inner  cover 
and  then  reflected  from  the  inside  of  the  outer  cover.  The  terms  in  the  second  set  of 
brackets  are  for  the  radiation  from  below  the  cover,  /?' , and  (minus)  the  radiation 
emitted  by  the  inner  cover. 

The  net  thermal  radiation  on  the  vegetation,  soil,  and  curtain  heat  exchanger  can  be 
written 


(14-59) 


where 


^jk  ^tPt^tk 


Pc  ~ Pc//  ’’^RcPcoi'^Rci 

k=v,  g,  e;  j = v,  g,  e;  I = c,  v,  g,  e 


In  words,  the  net  thermal  radiation  for  the  vegetation,  soil,  and  curtain  heat  ex- 
changer is  equal  to  minus  the  radiation  emitted  by  that  object  plus  the  radiation 
received  directly  from  the  soil,  vegetation,  and  exchanger  plus  the  radiation  from 
these  surfaces  that  is  reflected  from  all  the  other  surfaces  plus  the  radiation  coming 
down  from  above,  ft* , that  is  received  directly  plus  reflected  from  the  other  surfaces. 
Note  that  p^  is  the  reflectance  of  the  inside  of  the  inner  cover,  p^/,-,  plus  the  reflec- 
tance of  the  inside  of  the  outer  cover,  p^^,,  multiplied  by  the  transmittance  of  the 
inner  cover,  7^^/,  twice  to  account  for  two  passes  through  the  inner  cover.  The 
other  reflectances,  p^,  Pg,  and  Pg,  are  one  minus  the  corresponding  omittances 
(parameters  11,  12,  and  13  in  appendix  E). 

The  radiation  coming  down  from  the  level  of  the  covers,  ft* , is  defined  as 


^ acAg^ao^Rco^Rci ^coi^co^Rci ^ci^ci 
The  radiation  going  up  toward  the  covers  is  defined  as 


(14-60) 


R^  = LejRjVj^  + R%^ 


(14-61) 
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To  facilitate  the  solving  of  equations  14-1  through  14-8,  equations  14-51,  14-52, 
and  14-53  need  to  be  linearized.  The  method  used  is  described  in  more  detail  in 
Kimball  (1981)  and  uses  equations  of  the  form 

R = Ro  + 6f^T--F)  (14-62) 

where  6^  = 4Aa{T°  + 273. 1 6)3  (1 4-63) 

All  the  variables  in  equations  14-62  and  14-63  are  given  the  subscript  co,  ci,  v,  g, 
or  e,  depending  on  which  of  the  five  surfaces  is  being  considered.  The  PP  and  P 
are  “old”  values  of  R and  T computed  in  a previous  iteration. 

It  is  convenient  to  define  a notation-shortening  variable,  V^,  as 

= (14-64) 

Using  equation  14-64  in  equations  14-60  and  14-61,  it  is  also  convenient  to  define 

“ ^acAg^ao^Rco'^Rci "*■  ^coi^Rco^Rcl ^cii^Rcl  4-65) 

and  y = LejYf^jVja  + (1^) 


Similarly,  using  equation  14-64  in  equations  14-56,  14-58,  and  14-59,  it  is  also  con- 
venient to  define 


^Rcon  ~ ^cool^ac^g^ao  ■*"  ^goc^g^go  ^col 

^co/I “ '^Rco ^cio^Rci '^Rci^  ^co;Pc/o^Hco) 

(14-67) 

and 

^Rdn  ~ ^c/oK^ac^g^ao  ■*"  ^go(Ag^g<^'’^Rco  ^coi^Rco 
~ ^Rci  ^c/oPco/^flc/l 

(14-68) 

and 

YR,n  = 

(14-69) 

Humidity  equations 


As  will  be  shown  below,  consideration  is  given  to  the  humidity  ratios  at  various  loca- 
tions in  the  greenhouse.  When  the  humidity  ratio  is  for  a saturated  water  surface, 
several  equations  are  used.  First,  the  saturation  vapor  pressure,  p*  (kPa),  is  com- 
puted from  the  temperature  of  the  surface  using  Tentens’  equation  (Murray  1967, 
Kimball  1981): 


p*  = 0.61 078exp[1 7.26947/(7-1- 237.30)]  (14-70) 

Next,  the  saturation  humidity  ratio,  W*,  is  computed  from  p*  and  the  barometric 
pressure,  Pqq  (kPa)  (ASHRAE  1972,  p.  99): 

W*=  0.621 98p*/(Pao-P*)  (14-71) 
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The  slope  of  the  saturation  humidity  ratio  curve  with  temperature,  5^' 
= dW*ldT  ((l<g/kg)/°C),  is  computed  from 


= W* 


1 + 


W* 


0.62198 


4,098.03 

(7+237.30)2 


(14-72) 


The  latent  heat  of  vaporization,  A(J/kg),  which  also  appears  in  the  latent  heat  flux 
equations,  is  computed  from 


X = 2.501  X 1 06  - 2,381 7 (1 4-73) 

Equation  14-73  was  fitted  to  the  data  in  List  {1958,  p.  343). 

The  humid  specific  heat  of  air,  Cg  (J/kg»  ®C),  is  computed  from 

Ca  = 1,005  + 1,859  IV  (14-74) 

The  nonlinear  saturation  humidity  ratio  appears  in  several  equations  presented  below. 
To  facilitate  solving  equations  14-1  through  14-8,  the  humidity  ratios  are  linearized 
as  described  previously  (Kimball  1981).  Briefly, 

W=W°  + 8^T--F)  (14-75) 

where  W°  and  T°  are  “old”  values  computed  in  a previous  iteration.  All  the  variables 
in  equation  14-75  are  given  the  subscript  co,  ci,  v,  g,  or  e,  depending  on  which  of 
the  five  surfaces  is  being  considered.  The  slope,  8^,  is  computed  from  equation 
14-72  for  wet  surfaces  or  is  set  equal  to  zero  for  dry  surfaces.  It  is  convenient  to 
define  the  following  variable  to  shorten  later  notation. 

Y^^=W°-8w'P  (14-76) 


Convection 

All  of  the  convective  fluxes  of  sensible,  C^,  and  latent,  C^,  energy  are  computed  in- 
dividually, as  illustrated  in  figure  12  by  using  the  equations 


CH  = A/7(7-7g)  (14-77) 

and  CE=A\K{W-Wg)  (14-78) 

where  the  subscript  co,  ci,  v,  g,  or  e is  added  to  each  symbol  (except  Tg  and  IVg)  to 
denote  a particular  surface.  The  air  temperature  and  humidity  terms  refer  to  the  air  in 
contact  with  the  particular  surface;  so  outside  air  and  humidity  ratios  are  used  for  the 
outer  cover,  and  inside  values  are  used  for  the  other  four  surfaces.  Because  the  con- 
vective process  is  usually  sufficiently  turbulent,  the  same  mechanism  is  operable  for 
both  sensible  and  latent  heat  transfer;  and  the  mass  transfer  coefficients,  K,  are  com- 
puted from  the  heat  transfer  coefficients,  h,  as  K=h/Cg  (ASHRAE  1972,  p.  72).  The 
exceptions  to  calculating  K from  hICg  are  the  vegetation  and  soil  surfaces,  as  will  be 
discussed. 


The  humidity  ratio,  W,  of  a surface  depends  on  the  temperature  of  that  surface.  If  the 
surface  temperature  is  below  the  dewpoint  of  the  surrounding  air,  condensate  wili 
form  in  a film  on  the  surface.  It  is  assumed  that  the  condensate  wili  drain  away  and 
not  accumulate  significantly.  If  the  temperatures  of  the  outer  and  inner  covers  and 
the  curtain  heat  exchanger  are  above  the  dewpoint,  they  are  assumed  to  be  dry. 
Mathematically  these  cases  can  be  expressed  as 

W=  W*  and  if  W < (14-79) 

W=  l/Vg  and  6i^=0  if  W > (14-80) 

The  vegetation  and  soil  surfaces  are  assumed  to  always  be  saturated,  but  there  are 
additional  resistances  to  evaporation  (but  not  for  condensation),  as  will  be  discussed. 

Numerous  expressions  have  been  used  by  many  investigators  to  compute  the  outside 
heat  transfer  coefficient,  h^,  from  the  outside  wind  velocity,  i/go  (Kimball  1973).  For 
this  model  a linear  expression  is  used: 

/7o=bi+b2Wao  (14-81) 

where  the  coefficients,  b^  and  ^2,  are  parameters  which  the  user  can  alter  from 
simulation  to  simulation  to  suit  the  conditions.  Numerous  expressions  have  also  been 
used  to  compute  the  heat  transfer  coefficient  from  inside  air  to  the  inside  cover, 
/7gy(W/m2.  ®C),  from  the  temperature  difference  between  the  bulk  air  and  the  surface, 
AT,  (Kimball  1973).  In  this  case,  AT=\Tgj-T^j\,  and  the  form  of  the  equation  used  in 
the  model  is 


h,=b3(A7y’4  (14-82) 

where  the  coefficients  £>3  and  are  parameters.  If  cooler  air  underlies  warmer  air, 
the  value  of  h,  from  equation  14-82  is  reduced  by  one-half. 

Many  greenhouses  are  also  equipped  with  powered  circulation  fans  (Waiker  and  Dun- 
can 1974)  which  create  inside  air  movement  and  a larger  inside  air  transfer  coeffi- 
cient, hp.  To  model  the  turning  on  and  off  of  such  fans,  hp  is  computed  from 

^p  = Tp/’pi  (14-83) 

where  jp  is  a control  variable  input  that  ranges  from  0 to  1 from  a type  12  time  func- 
tion, or  similar  device,  and  hp^  is  a user-suppiied  parameter  that  is  equai  to  the  max- 
imum value  of  hp  attained  when  7p  = 1.  If  the  value  of  /?,  from  equation  14-82  for 
heat  transfer  between  the  greenhouse  air  and  a particular  surface  is  less  than  hp, 
then  hp  is  used  instead  for  the  value  of  the  inside  heat  transfer  coefficient  to  that  par- 
ticular surface. 

The  mass  transfer  coefficient,  (kg/s»m2),  is  more  complicated  for  the  vegetation 
than  for  the  other  surfaces  because  it  is  assumed  that  the  water  evaporates  into  the 
substomatal  cavities  and  then  must  pass  a stomatai  resistance,  r^,  and  a series  air 
resistance,  before  reaching  the  bulk  greenhouse  air.  On  the  other  hand,  when 
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< W/g,  and  moisture  is  condensing  on  the  leaf,  only  the  air  resistance  must  be 
overcome.  Thus, 


Kv  = 1 /{fav  + ''v)  ^ ^ai  C 4-84) 

K,=  1/rg, 

The  air  resistance  is  obtained  from  the  inside  heat  transfer  coefficient. 

'’av^^ailK  (14-85) 

The  crop  stomatal  resistance,  (m^s/kg),  is  assumed  to  be  a function  of  the  intensity 
of  solar  radiation  inside  the  greenhouse  (Kimball  1973). 


'■v  = ^8  + MVs  + ^io) 


(14-86) 


where  bg-  ^9>  b.|o  are  parameters  for  a particular  crop. 

The  mass  transfer  coefficient  Kg  (kg/»m2)  is  computed  similarly  to  K^.  It  is  assumed 
that  the  water  evaporates  below  the  soil  surface  at  a temperature  Tg  and  then  must 
pass  a soil  surface  resistance,  rg,  and  a series  air  resistance,  r^g,  before  reaching  the 
bulk  greenhouse  air.  This  model  is  admittedly  less  realistic  for  soil  than  vegetation; 
but  in  a greenhouse  the  soil  and  crop  will  generally  be  well  watered,  so  will  effec- 
tively be  zero. 

Otherwise,  benches  will  be  in  use,  and  the  soil  will  be  dry  at  some  very  high  con- 
stant value  of  rg.  The  user  provides  rg  as  a parameter,  and  r^g  is  computed  from 

''ag  = Cai%  (14-87) 

Then  Kg  is  obtained  from 

Kg  = V{rag  + rg)  (14-88) 


Sensible  and  latent  heats  from  external  devices 

The  total  sensible  energy  and  total  latent  energy  added  to  the  greenhouse  air  from 
external  devices  are  the  sums  of  the  energies  added  from  individual  devices.  The 
temperature,  T^j;  mass  flow  rate,  and  the  humidity  ratio,  W^j,  of  each  yth  device 
are  inputs  to  subroutine  CGH.  Then,  the  total  sensible  and  latent  heats,  respectively, 
are  computed  from 


(14-89) 

LX^j  = LM,jK^W,j-WJ  (14-90) 

The  heat  capacity  of  each  separate  air  stream  is  computed  individually  from 


C^j  = 1 ,005  1 ,859(lVa,o  W^j)/2 


(14-91) 


The  sensible  heat  added  to  the  cover  or  roof  from  an  external  device  is  computed 
from 


Xc  = M,cCxcl^{T,,-T,i)]  (14-92) 

where  is  the  temperature  of  the  fluid  entering  the  cover  from  the  external  device. 
The  temperature  difference,  T^^  - T^j  is  multiplied  by  2 because  it  is  assumed  that  the 
fluid  in  the  roof  is  not  well  mixed  and  that  7^,,  is  an  average  cover  temperature 
halfway  across  the  cover. 

Similarly,  the  sensible  heat  added  to  the  curtain  heat  exchanger  from  an  external 
device  is  computed: 


Xe  = M,eCxe[^iTxe-Te)]  (14-93) 

where  7^g  is  the  fluid  temperature  entering  the  exchanger.  The  temperature  dif- 
ference, - 7g,  is  multiplied  by  2 because  it  is  assumed  that  the  fluid  in  the  ex- 
changer is  not  well  mixed  and  that  7g  is  an  average  temperature  approximately 
halfway  down  the  curtain. 

Also,  sensible  heat  may  be  similarly  added  to  a storage  layer  in  the  soil,  as  described  by 

Xg  = M,gC,g[2{T,g-Tg,)]  (14-94) 

Like  the  temperature  for  the  cover,  the  temperature  Tg^  is  assumed  to  be  an  average 
halfway  across  the  greenhouse,  so  the  temperature  change  is  multiplied  by  2.  Equa- 
tion 14-94  omits  any  details  about  the  heat  transfer  between  the  fluid  and  the  soil.  It 
can  be  expected  to  be  a good  model  for  a fluid  in  intimate  contact  with  the  soil  layer, 
as,  for  example,  the  contact  between  the  water  and  gravel  in  the  Rutgers  greenhouse 
(Mears  et  al.  7977);  but  for  fast-moving  air  in  tubes  (Dale  et  al.  1979),  heat  transfer 
may  be  slow  enough  that  a more  detailed  model  is  required.  Also,  latent  heat  transfer 
is  not  included. 

A new  device  for  heating  greenhouses  which  has  potential  for  conserving  energy  is 
an  infrared  radiant  heating  system  (Rotz  and  Heins  1982).  Basically,  the  device  con- 
sists of  a burner  and  a long  thin  pipe(s)  for  mechanically  conducting  the  exhaust 
gases  to  the  outside.  The  pipe(s)  runs  the  length  of  the  greenhouse  over  the  crop.  A 
reflector  is  mounted  above  to  reflect  upward  going  radiation  down  toward  the  crop. 
The  device  conserves  energy  because  the  exhaust  gases  are  cooler  than  those  from 
a conventional  burner  and  also  because  the  air  next  to  the  greenhouse  cover  is 
cooler  for  the  same  vegetation  temperature. 

The  infrared  heater  is  modeled  by  specifying  a maximum  rated  output  capacity, 

(W),  as  a parameter,  and  multiplying  it  by  an  input  control  variable,  7^^: 

Xn-yR^RM  (14-95) 

Most  of  the  energy  emitted  by  the  heater  impinges  on  the  vegetation  and  soil  below 
(assuming  that  any  greenhouse  having  an  infrared  heater  would  not  have  curtain  heat 
exchangers  at  the  same  time).  The  fraction,  f,  of  the  energy  that  is  radiant  must  be 
specified  by  the  user  as  another  parameter.  The  remainder,  1 - f heats  the 
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greenhouse  air.  It  is  assumed  that  the  radiant  energy  from  the  infrared  heater,  like 
solar  radiation,  is  apportioned  between  vegetation  and  soil  according  to  their  respec- 
tive areas  (equation  14-11).  Then,  the  portions  of  the  radiant  energy  from  the  infrared 
heater  absorbed  by  the  vegetation,  soil,  and  air  are  computed  from 


^Rv-^R^Ksl^g 

(14-96) 

XRg  = Xf^f{Ag-A,g)IAg 

(14-97) 

XRa  = X^0-f) 

(14-98) 

Natural  ventilation 

Natural  ventilation  through  ridge,  side,  or  other  ventilators  is  computed  from 

NH  = hf^T^i-Tao)  (14-99) 

= (14-100) 

As  usual,  the  mass  transfer  coefficient  is  computed  from  the  heat  transfer  coefficient 
using  the  Lewis  relation  (ASHRAE  1972,  p.  72) 

f<N  = hN/c^o  (14-101) 

To  obtain  (W/®C),  the  rate  of  air  change  of  the  greenhouse  is  first  computed  from 

~ ^ao  ^7)ta/  (1 4-1 02) 

Uf^  is  the  number  of  volumes  of  greenhouse  air  exchanged  per  hour.  Experimental 
measurements  of  bg,  bQ,  and  bj  are  scarce.  Okada  and  Takakura  (1973)  and  Whittle 
and  Lawrence  {I960)  have  provided  about  the  only  available  data. 

The  7/y/  in  equation  14-102  is  a control  variable  input  that  can  come  from  a type  4 
thermostat  or  similar  device.  As  it  varies  from  0 to  1 , it  controls  the  opening  and  clos- 
ing of  the  ventilators. 

After  is  computed,  is  obtained  from 

'’/V  = W/v''a/^aoCao/3-600  (14-103) 

where  the  air  density,  Dg^,  is  computed  from  the  outside  temperature  and  pressure: 

Dao  = Pao/(0-287(Tao  + 273. 1 6))  (1 4-1 04) 

By  proper  choice  of  bg  and  by  with  bg  = 0 and  t/v  = 1 . a complete  removal  of  the 
greenhouse  cover  can  also  be  simulated.  For  example,  if 

^ 3,600b2Ac 

®5-  „ n o 


(14-105) 


and 


(14-106) 


3,600b^Ac 
^aPao^ao 

then  equation  14-103  reduces  to  equation  14-81  and  = The  user  should  use 

typical  values  of  air  density,  Dgo,  capacity,  when  using  equations 

14-105  and  14-106  to  calculate  the  parameter  values  for  and  by  for  this  no-cover 
case.  Also,  the  inside  heat  transfer  coefficient  must  be  made  very  large.  This  can  be 
accomplished  by  setting  hp^  equal  to  10,000  (see  equation  14-83).  To  set  the  inputs 
7p  and  equal  to  1 .0,  they  can  be  connected  to  a device  whose  output  is  always  1 , 
such  as  a type  13  reservoir  with  a parameter  equal  to  1.  Of  couse,  for  a no-cover 
case  the  cover  must  also  be  transparent  to  solar  and  thermal  radiation,  so 
^Rco’  ^Rci  must  be  1.0. 

Infiltration 

The  infiltration  of  sensible  energy  and  latent  energy,  respectively,  by  movement  of  air 
through  cracks  and  intersticies  is  computed  from 


fH  = A^¥Tai-Tao)  (14-107) 

Ie  = A,KiK,{W,i-W,^)  (14-108) 

where  h/  (W/m^.  ®C)  is  the  heat  transfer  coefficient  for  infiltration  and  Kf  is  the  mass 
transfer  coefficient  for  infiltration.  From  the  Lewis  relation  (ASHRAE  1972,  p.  72), 

Ki  = h,lc^^  (14-109) 

The  hf  is  computed  following  Okada  and  Takakura  {1973).  First,  a velocity  of  air 
movement,  U/,  (mm/s  or  (m^  of  air  x 103)/m2  of  cover/s)  that  is  the  average  over  the 
whole  cover  area  is  computed  from 

t^/  = ^1lUao  + ^2^^a/-7ao  + ^13  (14-110) 

Outside  wind  velocity  and  the  temperature  difference  between  the  inside  and  outside 
air  are  assumed  to  affect  natural  ventilation  and  infiltration  in  a similar  functional  way. 
The  primary  difference  is  that  natural  ventilation  is  used  to  deliberately  lower 
temperatures  whereas  infiltration  is  a consequence  of  the  failure  of  greenhouse 
building  materials  to  form  a hermetic  seal. 

Few  data  are  presently  available  about  the  coefficients  in  equation  14-110.  However, 
it  seems  reasonable  that  they  are  a property  of  the  cover  and  also  might  be  affected 
by  an  inside  circulation  fan.  Therefore,  provision  is  made  for  changing  the  coefficients 
with  7jj,  and  jp.  As  shown  in  the  codes  in  appendix  E,  the  user  must  supply  four 
values  each  for  bi2>  ^i3>  values  corresponding  to  the  following  four 
cases.  Tc/  — Tp  — yci~^’  Tp  — Tc/— 1>  Tp  — srid  Tc/  — Tp  — 1* 

After  Uj  is  computed,  /?/  is  obtained  from 

h,  = u,c^^D^J1,000  (14-111) 


79 


Soil  heat  flux 


When  this  model  was  first  constructed,  the  soil  heat  flux  was  computed  by  dividing 
the  soil  into  layers  and  then  computing  the  storage  of  heat  in  each  layer  from  the  dif- 
ference between  the  fluxes  entering  and  leaving  each  layer,  as  is  done  for  the  type  5 
greenhouse.  In  some  cases,  especially  unheated  and  uncooled  greenhouses,  the  sur- 
face soil  heat  flux  is  very  important.  However,  in  order  to  simulate  it  accurately,  thin 
surface  layers  were  required;  and  then  in  order  to  satisfy  stability  criteria  (see  “Inte- 
gration of  Differential  Equations’’),  time  steps  of  2 to  6 minutes  were  required.  Such 
short  time  steps  increased  the  required  computation  time  by  an  order  of  magnitude  in 
comparison  to  time  steps  of  about  an  hour  which  usually  can  adequately  follow  diur- 
nal weather  patterns.  Moreover,  the  iterations  involved  with  solving  the  differential 
equations  further  increased  the  computational  time  by  a factor  of  three  or  more. 

Fortunately,  a faster  technique— variously  called  the  transfer  function  method,  the 
thermal  response  factor  method,  or  conduction  transfer  function  method— has  been 
developed  (Stephenson  and  Mitalas  1967,  Mitalas  and  Stephenson  1967,  Mitalas 
1968,  Kusuda  7969a,b,  Peavy  1978,  Kimball  1983).  Peavy  {1978)  has  published  a 
computer  program  for  computing  the  conduction  transfer  functions. 

The  conduction  transfer  function  method  is  an  analytical  formulation  that  solves  for 
temperatures  or  heat  flows  in  multilayer  slabs,  based  on  past  temperature  history. 
Basically,  the  method  utilizes  the  superposition  principle  in  such  a manner  that  the 
overall  thermal  response  of  a slab  at  a selected  time  is  the  sum  of  the  responses 
caused  by  many  individual  temperature  pulses  during  preceding  times.  Thus,  by 
simulating  the  transient  boundary  temperatures  using  a train  of  pulses  and  then  sum- 
ming the  heat  fluxes  caused  by  each  pulse,  the  total  heat  flux  at  a given  time  can  be 
derived.  This  derivation  for  the  total  heat  flux  is  based  on  a solution  of  the  basic  dif- 
ferential equation  for  heat  conduction  obtained  using  a matrix  of  LaPlace  transforms. 
Thus,  the  conduction  transfer  function  method  is  conceptually  and  computationally 
more  complex  than  the  old,  finite-difference  numerical  method,  but  the  savings  in 
computation  time  makes  its  use  worthwhile. 

To  use  the  conduction  transfer  function  method,  one  must  have  a set  of  coefficients 
specific  for  the  thermal  properties  (conductivity,  heat  capacity)  of  the  slab  or  floor 
being  simulated.  Obtaining  these  coefficients  requires  complicated  computations 
(Kusuda  7969a,b:  Peavy  7978);  and,  in  effect,  these  prerun  computations  are 
substituted  for  run-time  computations.  However,  once  the  coefficients  are  obtained, 
they  can  be  used  over  and  over  again  for  slabs  or  floors  with  the  same  thermal  prop- 
erties. This  requirement  for  constant  thermal  properties  is  a major  limitation  to  many 
agricultural  applications  because  changes  in  soil  moisture  conditions  markedly  alter 
thermal  properties.  However,  most  greenhouse  growers  maintain  relatively  constant 
soil  moisture  conditions  with  automatic  irrigation  systems,  so  the  conduction  transfer 
function  method  should  be  applicable  for  simulating  soil  heat  flux  in  most 
greenhouses. 

Conduction  transfer  functions  have  been  presented  for  many  combinations  of  building 
construction  materials  by  ASHRAE  {1972  p.  425).  KuSuda  {1979a, b)  and  the  ASHRAE 
Task  Group  on  Energy  Requirements  for  Heating  and  Cooling  {1975)  have  presented 
conduction  transfer  functions  for  a few  other  building  material  combinations,  including 
concrete  over  semi-infinite  soil.  Kimball  (7983)  has  presented  conduction  transfer 
functions  for  a wide  range  of  soil  conditions  and  for  the  floor-heating  system  in  the 
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Rutgers  greenhouse  (Mears  et  al.  7977).  The  conduction  transfer  functions  for  a 
greenhouse  sand  culture  system  (Jensen  and  Hicks  1973,  Kimball  and  Mitchell  1979) 
are  presented  in  the  solar  greenhouse  system  example  presented  later. 

In  order  to  store  heat  from  external  devices  such  as  solar  collectors  in  a layer  under 
the  greenhouse,  the  soil  under  the  greenhouse  must  be  treated  as  though  it  were  an 
upper  slab  over  a lower  semi-infinite  region.  The  upper  slab  has  temperatures  Tg  and 
Tgg  at  the  surface  and  at  the  storage  layer,  respectively,  and  the  corresponding  soil 
heat  fluxes  are  Gq  and  G^q  (fig.  12).  The  lower  semi-infinite  region  is  at  temperature 
Tgg  at  its  top  and  at  temperature  at  some  great  depth.  The  value  for  is  a con- 
stant supplied  by  the  user.  The  heat  flux  entering  the  top  of  the  semi-infinite  region  is 
denoted  Gg^.  The  upper  slab  can  be  composed  of  several  layers  of  material  with  dif- 
fering thermal  properties,  but  the  semi-infinite  region  must  have  constant  thermal 
properties. 


Following  Peavy  (7978),  the  soil  heat  flux  at  the  soil  surface  is  computed  from 


where 


®0,f  “ 1 ^g,  t ^g®21  ^gs,  f ■*"  ^0 


M 


(14-112) 


Eo-Sr^O.f-l +^g^^2  f®1m^g,f-m  + 1 “®2m^gs,f-m  + ll  (14-113) 

The  soil  heat  flux  leaving  the  bottom  of  the  upper  slab  is  computed  from 

GsO’^  = ^g®21  ^g,t  ~ ^g®31  ^gs,t  ^sO  ^ 


where 


M 


^s0~®r®s0,f-1  ■*‘^g^^2^^2An^g,f-m  + 1 ®3m^gs,f-/77  + ll  (14-115) 


The  ^207  ®’  ®3m’®  equations  14-112  to  14-115  are  the  conduction 

transfer  functions,  and  the  is  a common  ratio  between  thermal  response  factors 
(Peavy  1978,  Kimball  1983).  All  of  these  B’s  must  be  supplied  by  the  user.  They  can 
be  obtained  from  the  references  mentioned  previously  or  from  a prior  run  of  Peavy’s 
program.  The  slab  of  soil  they  represent  should  be  at  least  about  10  cm  thick  in 
order  to  ensure  that  a minimum  of  about  25  total  B’s  plus  past  temperatures  are 
used  for  the  soil  heat  flux  prediction  (Kimball  1983). 

The  soil  heat  flux  entering  the  top  of  the  homogenous  semi-infinite  region  can  be 
obtained  using  thermal  response  factors.  These  thermal  response  factors  can  be 
calculated  from  the  following  set  of  simple  equations  (Kusuda  7969a,b:  Kimball  1983): 


B4I  =2V(XgCgDg)/(7rAf) 

S4m  = B41(^/^2^/m-1  +Vm-2)/77>2  (14-116) 

where  Xg,  Cg,  and  Dg  are  the  thermal  conductivity  (W/m’®C),  heat  capacity  (J/kg‘®C), 
and  density  (kg/m^),  respectively,  of  the  soil  comprising  the  semi-infinite  region,  and 
Af  is  size  of  the  simulation  time  step  (s).  The  user  must  supply  a value  for  B41,  and 
then  the  program  computes  the  other  B^^’s.  Kimball  (7983)  has  presented  values  of 
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S41  for  several  cases.  The  maximum  m used  is  the  same  as  that  given  for  the  upper 
slab  because  using  more  terms  for  the  lower,  semi-infinite  region  than  for  the  upper 
slab  provides  no  additional  accuracy  so  long  as  the  total  number  of  B’s  plus  past 
temperatures  is  greater  than  about  25  (Kimball  1983). 

The  soil  heat  flux  entering  the  top  of  the  semi-infinite  region  is  computed  from 


where 


^sd-^g^4-\(^gs,t~^d)'^^sd  (14-117) 

M 


Thus,  the  soil  heat  fluxes  are  computed  from  the  temperature  extending  M time  steps 
back  and  from  the  soil  heat  fluxes  of  the  previous  time  step.  All  the  response  factors 
and  the  past  temperatures  are  stored  and  updated  by  the  program  at  each  time  step. 
However,  when  first  starting  a simulation  the  user  must  supply  estimates  of  the  past 
temperatures  and  soil  heat  fluxes.  Also,  the  conduction  transfer  functions  for  the 
upper  slab  and  for  the  semi-infinite  region  must  be  supplied.  The  conduction 
transfer  functions  and  past  temperatures  could  have  been  handled  as  ordinary 
parameters,  as  in  all  the  other  MEB  subroutine  models.  However,  because  of  the 
large  number  of  values  (25  or  more),  it  seemed  more  convenient  to  use  a standard 
table  of  values  stored  in  COMMON.  The  user  can  fill  in  the  form  for  complicated 
greenhouses,  as  provided  in  appendix  D.  The  S’s  and  M’s  are  the  outputs  from  prior 
runs  obtained  with  Peavy’s  program,  whereas  the  Ts  and  G’s  are  user  estimates  of 
the  temperatures  and  heat  fluxes  for  times  prior  to  the  initial  run  time.  To  improve 
these  initial  estimates,  the  user  can  run  the  first  day’s  simulation  a few  times,  and 
then  use  these  computed  temperatures  and  soil  heat  fluxes  for  the  actual  run. 

Solving  for  T^q,  Ty,  Tg,  Tg,  Tgj-,  IVgj-,  and  Tgg 

When  all  the  defining  energy  flow  equations  are  substituted  into  equations  14-1 
through  14-8  and  rearranged,  the  following  equations  result; 

For  the  outer  cover 

^co  [ ~ ^Rco^coo  ^Rco^cok  ~ ^ ^coFRc^^cc  Pc/o)  “ ~ ^(Po  ~ ^c^o^o^Wcol 
^cl^^Rci^coi^^cio  ■*"  ^flc/^c/Z^cc) 

~ “ ^co  ~ ^con  ~ ^(Po^ao  ^(Po^o^Wco ~ ^c^o^o^ao 


(14-118) 


For  the  inner  cover 


^Co[^flCO^CO/(^C/0  ^CH^ftC/Xcc) 

■*■  ^ci  [^flc/^co/(  ” ^ + ^c/oPco/)  ■*■  ^Rci^cii^  — 1 + ec/;X;c) 

~^c^c~  ^(Pci  ~ Wei  ~ ^^xc^xc  I 

+ 7■^,I5f,^€^^ec/,V^,c] 

■*■  ^el^fle^e^cZ/Kscl 
■*■  ^a/I^c^c/l 
+ ^all^c^Pcl] 

~ ~ ^ci ~ '^cin  ■*■  ^(PPei^ Wei  ~ ^^xc^xc^xc  ^ ®) 

For  the  vegetation 

i 

^co  l^Rco^coi^v'^Rcycv^ 

■*■  ^cil^Rci^cii^v^cv^ 

"^V^^Rv^V^  ~ 1 + ~ ^\PP\P\/Vv^ 

+ ^gi^Rg^g^v^gv^ 

+ WJA^iK,] 

= - - Xfl,  (14-1 20) 

For  the  soil 

^co  [^flco^co/^g^ftc/^cg  I 
■*■  ^c/[^flc;'^c//^g^cgl 

+ ^g [^flg^g(  “ ^ "'■  ^g'^gg)  “ ~ ^g^Pg^Wg  ~ ^g®l  1 1 
■*■  ^a/’l^g^g] 

+ l^a,.[>4gX,.Kg] 

■*■  ^gsl^g®21 1 

= -Sg-Yg,+AgKiKgYwg-Xp,g  + L0  (14-121) 

For  the  curtain  heat  exchanger 

^co  [^flco^co/^e’^flc/ Vee  1 
■*■  ^c/t^flc(^c//^e^ce] 

■*■  ^vt^Rv^v^e^ve^ 

■*■  ^gl^ftg^g^e^ge] 

■*■  ~ ^ ^e^ee)  ~^e^e  ~ ^e\^e^We  ~ ^^xe^xe^ 

+ TailAehe] 

+ WJA^\lK,] 

- ~ ^en'^^e^Pe^We~^^xe^xe^xe  (14-122) 
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For  the  greenhouse  air  energy  balance 


Type  15 

Simple 

Greenhouse 


~^g^A^g  + Ag\jKg8^g) 

+ Tg  {Aghg  + AqXjKqS  j^g ) 

+ — AJi^j — AJi^ — Aghg  — AqIIq  — AJij  — — ILM^p^j) 

+ ^aii  - Ac\Kc  - A^iK,  - Agk/Kg  - /tgX^g  - - X^a/  - 

— — AfXjK^jY^f^j  — AjKjKyY^fl/^  — AgkjKgY^g — A^XiK^T^g  — A^jT^q 
— AfXjKjW^Q  — — XjK^WgQ  — — ^M^pjW^j  — X^g 

For  the  greenhouse  air  moisture  balance 


^c;  i^c^i^ci^  Wei ) 

+ T^{A^jK^p^^) 

■*■  ^g{AgXjKg8^g) 


+ ^^aii  ~ ^ci^i^ci  ~ “ ^g\'^g  “ ^eh^e  ~ ~ ~ ^^xj^i) 

= — AQjkjK^jY^i^j  — A^jKyY^  — AgkjKgY^g  — AgXjKgY^Q  ^ 

- A,XiK,Wgg  - XiKi^Wg^  - 


(14-123) 


(14-124) 


For  the  soil  storage  layer 
T'glVsil 

■*■  ^gsf  “'^g^SI  “^g®41  ~ ^^xg^xgl 

~ ~ ^sO  ■*■  ^sd  ~ ^^xg^xg^xg  4-1 25) 


Equations  14-118  through  14-125  form  a set  of  eight  simultaneous  equations  with 
eight  unknowns:  T^j,  T^,  Tg,  T^,  Tgj,  Wgj,  and  Tg^. 

The  method  chosen  for  solution  is  Grout’s  triangularization  with  back  substitution 
(Froberg  1965,  p.  78-81)  because  of  its  high  accuracy  (Kimball  1976).  When  a 
simulation  run  is  first  started,  the  “old”  values  of  the  unknowns  are  set  to  the  corre- 
sponding initial  values  of  the  user-supplied  outputs  for  the  type  14  greenhouse.  When 
subroutine  CGH  is  called,  new  values  are  computed.  Then,  the  old  values  are  set  to 
the  new  ones  and  stored  in  labeled  COMMON  until  the  next  time  CGH  is  called. 

The  type  15  simple  greenhouse  is  illustrated  in  figure  17.  Each  arrow  represents  a 
flux  of  energy,  with  the  direction  of  the  arrows  taken  as  positive.  Energy  fluxes  in- 
cluded in  the  analysis  are  solar,  S;  combined  conduction  and  convection,  C;  external 
device,  Xf,  and  ventilation,  V.  The  model  for  the  type  15  simple  greenhouse  is  similar 
to  the  models  of  Walker  {1965)  and  Garzoli  and  Blackwell  {1971,  1973)  in  that  only 
one  energy  balance  is  used  and  evapotranspiration  is  handled  rather  crudely.  Many 
of  the  transfer  coefficients  for  convection,  conduction,  infiltration,  and  thermal  radia- 
tion are  lumped  into  a single  overall  U factor.  Considerable  versatility  is  retained, 
however,  because  the  U can  be  adjusted  to  account  for  such  factors  as  pulling  a 
thermal  screen  at  night  or  for  using  a powered  circulation  fan.  No  storage  of  heat  in 
the  soil  is  included  in  the  analysis;  but  in  a commercial  heated  greenhouse,  the  con- 
tribution of  soil  heat  is  relatively  small.  A big  advantage  of  the  type  15  greenhouse 
over  the  type  5 and  type  1 4 ones  is  that  the  equation  for  the  greenhouse  air 
temperature  is  solved  directly  without  iteration,  so  speed  is  obtained  along  with 
simplicity. 
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The  following  notation  will  be  used; 


A area  (m^) 

B see  equation  15-12 

C convection  (W) 

D density  (kg/m^) 

J number  of  external  devices 

M mass  flow  rate  (kg/s) 

P pressure  (kPa)  or  parameter 

S solar  radiation  (W/m^) 

T temperature  (®C) 

U overall  heat  transfer  coefficient 
(W/m2.®C) 

V rate  of  energy  removed  by  ventila- 
tion (W) 

Subscripts  are  as  follows: 

max  maximum 

N for  natural  ventilation 

S for  solar  radiation 

V for  ventilation 

Vp  for  powered  ventilation 

VN  for  natural  ventilation 

ai  inside  air 

an  air  entering  greenhouse 

ao  outside  air 

c cover 

g soil  or  ground 

/ inside 

y index  for  external  device 

0 outside 

p for  powered  air  circulation 

Energy  balance  equation 
Referring  to  figure  17,  a balance  of  enei 


X energy  from  external  device  (W) 

b coefficients 

c heat  capacity  at  barometric  pressure 

(J/kg.®C) 

f fraction  of  energy  that  is  latent 

u velocity  of  air  movement  (m/s)  or 

greenhouse  volumes  per  hour 
V greenhouse  volume  (m^) 

7 control  variable 

7/  saturation  efficiency  of  evaporative 

pads  (%) 
p reflectance 

T transmittance  of  cover 


vg  average  of  vegetation  and  soil 
wb  outside  wet  bulb 

X external  device 

X latent  heat 

0 intercept  or  control  variable  equals  0 

1 refers  to  the  first  member  of  a 
series,  such  as  a series  of  coeffi- 
cients: or  it  refers  to  the  value  of 
the  control  variable.  Higher  numbers 
identify  higher  members  of  a series. 


for  the  greenhouse  can  be  written 


Sj+EXj-C-V=0 


(15-1) 


Solar  radiation 

The  solar  heat  gain  inside  the  greenhouse,  S,,  is  computed  from 

Si=AgS^T^^-p,g)  (15-2) 

The  transmittance  of  the  greenhouse  cover  for  solar  radiation,  Tg,  is  made  a variable 
cover  property  and  is  computed  from 

7'S  = C -7c^7’S0+  7c  ’'SI  C5-3) 
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where  7^  (input  6)  is  a control  variable  that  ranges  from  0 to  1 and  can  be  input  from 
a type  4 thermostat,  a type  12  time  clock,  or  similar  device.  The  t^q  (parameter  13) 
is  the  transmittance  of  the  cover  when  7c  = 0 while  the  (parameter  16)  is  the 
transmittance  when  7c  = 1 ■ The  7c  controls  other  cover  properties  also,  as  will  be 
discussed,  so  covers  whose  properties  change  can  be  modeled.  Such  covers  include 
thermal  screens  and  movable  shades. 

Sensible  and  latent  energy  from  external  devices 

The  total  sensible  and  latent  energy  added  to  the  greenhouse  air  from  external 
devices  is  the  sum  of  the  energies  added  from  individual  devices.  The  temperature, 

Tj  and  mass  flow  rate,  Mj,  of  each  /th  device  are  inputs  to  subroutine  SGH.  Then  the 
total  energy  added  is  computed  from 

i:Xi  = LM,piT,i-TJ  (15-4) 

The  heat  capacity  of  humid  air  at  constant  pressure,  c,  is  assumed  constant  at  1,020 
J/kg.°C. 


Figure  17. 

Schematic  illustration  of  a type  15  simple  greenhouse 
showing  the  energy  fluxes  considered  by  the  type  15 
model. 


Conduction  and  convection  through  the  greenhouse  cover 

Conduction,  C,  through  the  greenhouse  cover  is  computed  from 

C = A,U{T^i-T^^)  (15-5) 

The  overall  heat  transfer  coefficient,  U (W/m2.°C)  is  computed  from 


U = bo  + b^u^„ 


(15-6) 


where  Ugo  'S  the  outside  wind  velocity.  This  U includes  convection  from  the  in- 
side air  to  the  cover,  conduction  through  the  greenhouse  cover,  and  convection  from 
the  cover  to  the  outside  air.  It  also  includes  possible  thermal  radiation  through  par- 
tially transparent  plastics,  and  infiltration  of  air  through  cracks  and  intersticies  around 
glass  panes  or  doors.  By  adjusting  the  coefficients  in  equation  15-6,  the  U factor  for 
the  greenhouse  wall  can  be  adjusted  to  account  for  varying  conditions.  In  particular, 
the  control  variable  (input  6)  can  be  used  to  make  needed  changes  in  the  cover 
properties,  as,  for  example,  when  a thermal  screen  is  drawn.  To  achieve  this  versatil- 
ity, two  values  for  Pq  and  b^  must  be  supplied  as  parameters,  as  indicated  in  appen- 
dix E,  on  the  from  in  appendix  D,  and  also  as  follows: 


Item 


7c  = 0 


7c  = '' 


bo 

b^ 


parameter  13 
parameter  14 
parameter  15 


parameter  16 
parameter  17 
parameter  18 


The  values  of  the  actual  coefficients  used  in  equation  15-6  are  obtained  by  linear  in- 
terpolations between  the  7 = 0 and  the  7^  = 1 values,  in  a manner  analogous  to  ob- 
taining Tg  in  equation  15-3. 


Ventilation 


The  rate  at  which  energy  is  removed  from  the  greenhouse  by  forced  or  natural  ven- 
tilation is  computed  from 


^ai^V^ao^^^ai  ^an) 

3,600  (1  -fx) 

where  is  the  air  exchange  rate  of  the  greenhouse  in  volumes  per  hour.  It  is  com- 
puted for  both  natural,  u^f^,  and  forced,  u^p,  ventilation;  and  then  the  larger  of  the 
two  values  is  used  in  equation  15-7.  Forced  or  powered  ventilation,  is  computed 
as  the  product  of  maximum  air  changes  per  hour  the  fans  can  attain,  u^nax 
(parameter  10),  times  a control  variable,  jp  (input  7),  for  turning  the  fans  on  or  off: 

^Vp  = i^max7p  (15-8) 

Ranging  from  0 to  1 , 7p  can  be  supplied  by  a type  4 thermostat  or  similar  device. 
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Natural  ventilation  u^i^,  is  computed  from  the  oustide  wind  velocity:  {, 

^VN  = ^2  + ^3^ao  05-9)  I 

where  has  units  of  greenhouse  volumes  per  hour  and  is  the  outside  wind  | 

velocity  in  meters  per  second.  A control  variable,  is  used  to  open  and  close  the 
ventilators.  Two  sets  of  coefficients  ^2  ^^d  must  be  supplied  by  the  user  as  , 

parameters,  as  indicated  in  appendix  E and  also  as  follows: 

Item  7/v  = 0 7A/=1  ; 

b2  parameter  6 parameter  8 ! 

b^  parameter  7 parameter  9 i 

When  the  vents  are  closed  (7/^  = 0),  the  coefficients  can  be  equal  to  zero,  or,  alter-  j 

natively,  they  can  be  selected  to  model  infiltration  separately  from  the  overall  U factor 
for  conduction  and  convection.  The  latter  should  be  more  realistic  (Okada  and 
Takakura  1973)  because  conduction  is  more  influenced  by  the  materials  of  construc- 
tion, whereas  infiltration  is  more  influenced  by  the  quality  of  construction  and  the 
number  and  sizes  of  cracks  and  intersticies.  Experimental  measurements  of  62  and 
63  are  scarce,  with  Okada  and  Takakura  (1973)  and  Whittle  and  Lawrence  {I960) 
providing  about  the  only  available  data.  Based  on  the  data  of  Whittle  and  Lawrence, 
the  program  sets  Uyf^  to  a minimum  value  of  18/h  when  the  vents  are  open  wide 
(7/v=1),  and  the  value  from  equation  15-9  is  less  than  18. 

The  air  density  Dg^  is  calculated  from  the  barometric  pressure  (input  3)  and  the  out- 
side air  temperature: 


Dao  = Pa(/I0-287(Tgg  -h  273.16)]  (15-10) 

The  temperature  at  which  the  air  enters  the  greenhouse,  Tg^,  is  computed  from 

Tan  = T^o-v{Tso-Ty,b)/^00  (15-11) 

where  t;  (parameter  11)  is  the  efficiency  of  evaporative  cooler  pads  at  the  entrance  to 
the  greenhouse.  If  no  evaporative  pads  are  used,  t?  can  simply  be  set  equal  to  zero, 
and  the  entering  air  temperature  is  the  outside  dry  bulb  temperature,  Tg^.  However, 
by  setting  77  to  77  percent  or  some  other  typical  value,  a built-in  evaporative  cooler  is 
modeled  that  is  particularly  appropriate  for  use  with  forced  ventilation. 

Equation  1 5-7  contains  the  term  the  latent-heat  fraction  of  the  total  energy  re- 
moved by  ventilation.  As  the  air  passes  through  the  greenhouse  and  absorbs  sensi- 
ble heat,  the  air  temperature  increases.  However,  if  there  is  moist  soil  or  a transpiring 
crop  in  the  greenhouse,  some  of  the  energy  in  the  greenhouse  will  increase  the 
moisture  content  of  the  greenhouse  air  by  the  latent  heat  of  evaporation  without  rais- 
ing the  temperature.  Garzoli  and  Blackwell  {1971,  1973),  Lake  et  al.  {1966),  Morris 
{1962),  and  Morris  et  al.  {1957)  have  all  found  values  of  close  to  0.5  for  freely 
transpiring,  well-watered  crops.  By  calculating  backward  from  the  greenhouse  cooling 
system  design  standards  (National  Greenhouse  Manufacturer’s  Association  1978) 


Type  16 
Heater 


which  gives  the  value  of  0.04  m^/s  of  air  flow  per  cubic  meter  of  greenhouse  for  a 
4®C  rise  in  air  temperature,  the  standards  can  be  shown  to  be  based  on  an  of  ap- 
proximately 0.5.  While  this  approach  of  using  a constant  proportionality  between  sen- 
sible and  latent  energy  does  not  account  for  variations  in  the  physiological 
resistances  to  water  loss  of  crops,  it  nevertheless  has  industry  acceptance 
(Augsburger  et  al.  1970)  and  some  experimental  verification. 


Solution  of  the  energy  balance  equation 

When  equations  15-4,  15-5,  and  15-7  are  substituted  into  equation  15-1  and  rear- 
ranged, the  following  explicit  equation  is  obtained  for  the  inside  air  temperatue,  Tg/- 


Sj  + c^MjfjT^j  + A^UTgQ  + BTgf^ 


Tai  = 


cZM^j  + AfJU  + B 


(15-12) 


where 


^ai^V^ao^ 

B = 

3,600(1  -fx) 

After  Tgj  is  computed,  it  is  substituted  into  equations  15-4,  15-5,  and  15-7.  Then  S/, 
LXj,  C,  the  amount  of  sensible  heat  removed  by  ventilation,  and  V are  all  computed 
and  returned  to  the  main  program  as  outputs  listed  in  appendix  E. 

The  type  1 6 heater  is  one  of  the  simplest  of  the  device  models.  This  air  heater  or 
furnace  is  modeled  by  specifying  the  maximum  rate  of  sensible  energy  output, 

(W),  the  heater  is  capable  of  delivering  in  parameter  1 , and  the  maximum  rate  of 
water  vapor  production,  (kg/s),  as  parameter  3.  The  temperature  of  the  air  com- 
ing out  of  the  heater,  Tg2  (output  1 ),  is,  computed  from 

^ ^ T^max 

"'"^Fmax(1.005  + 1.859W^,) 

where  Ta^  = temperature  of  air  entering  (®C) 

7 = control  variable.  Varies  from  0 to  1 and  can  be  supplied  by  a type  4 

thermostat  or  similar  device. 

Fmax  = maximum  flow  rate  of  internal  fan  of  heater  (kg/s) 

Wgi  = entering  humidity  ratio  (kg/kg) 

The  humidity  ratio  of  the  air  coming  out  of  the  heater,  IVgg  (output  3),  is  computed 
from 


^max 

The  mass  flow  rate  of  the  air  coming  out  the  heater  is  output  2.  It  is  set  equal  to 
until  7 is  less  than  1 x 10"''*^,  and  then  it  is  set  equal  to  zero.  This  allows  Ta2 
and  Wg2  and  thus  the  heater  output  to  vary  proportionally  with  7. 
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Type  17 

Night-Sky  Radiator 


Many  real  heaters  are  not  of  the  forced  convection  type  and  do  not  have  an  internal 
fan.  The  type  16  model  can  still  be  used,  however,  by  simply  choosing  some 
reasonable  mass  flow  rate  for  parameter  2 and  pretending  the  heater  is  of  the  forced 
convection  type.  This  works  because  the  other  component  models  that  are  likely  to 
be  used  with  the  type  16  heater  expect  temperature,  mass  flow  rate,  and  humidity 
ratio  as  the  fluid  stream  information.  Even  if  the  specified  flow  rate  is  wrong,  the  type 
16  model  will  compute  a temperature  that  corresponds  to  the  correct  heater  output 
(watts),  and  the  other  component  models  will  decode  and  obtain  this  same  output 
from  the  temperature  and  flow  rate  they  receive.  Even  for  electric  heaters  which  add 
no  latent  heat  to  the  air,  the  input  humidity  ratio  (input  3)  must  still  be  connected  to 
the  humidity  ratio  of  the  space  being  heated.  If  input  3 were  inadvertently  connected 
to  zero,  for  example,  it  would  appear  as  if  dry  air  were  entering  the  space,  and  an 
error  in  the  form  of  a false  loss  of  latent  energy  would  occur. 

A section  of  a type  17  night-sky  radiator  is  illustrated  in  figure  18.  It  consists  of  a thin 
surface  of  some  high  emittance  material  in  contact  with  a stream  of  water  for  a heat 
transfer  fluid.  A cover  of  another  material  highly  transparent  to  thermal  radiation  is 
stretched  over  the  top  to  provide  an  insulating  air  layer.  The  device  radiates  energy 
to  the  night  sky  from  the  water,  and  the  water  cools  as  it  flows  from  one  side  of  the 
section  to  the  other.  Because  of  the  insulating  air  layer,  radiation  can  cool  the  water 
to  below  the  ambient  air  temperature.  When  the  water  is  warmer  than  air 
temperature,  however,  greater  cooling  can  be  achieved  by  removing  the  insulating  air 
layer  to  facilitate  additional  heat  loss  by  convection. 

The  emittance  and  transmittance  of  the  atmosphere  are  not  uniform  with  wavelength 
(Idso  1981).  The  region  between  8 and  14  fim  is  generally  quite  transparent  and  is 
known  as  the  atmospheric  window.  Outside  the  window,  from  0 to  8 /im  and  from  14 


by  the  type  17  model. 
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to  00  iim,  the  atmosphere  is  essentially  opaque.  Catalanotti  et  al.  (1975)  have  shown 
that  it  is  advantageous  for  a night-sky  radiator  to  have  a selective  surface.  An  ideal 
surface  for  obtaining  temperatures  below  air  temperature  would  be  to  have  an  emit- 
tance  of  1 .0  in  the  atmospheric  window  wave  band  and  an  emittance  of  0.0  outside 
the  wave  band.  The  reason  for  the  zero  emittance  outside  the  window  is  that  the  sur- 
face then  has  a reflectance  of  1.0  and  will  reflect  all  downcoming  sky  radiation.  To 
accommodate  selective  surfaces  and  the  selective  atmosphere,  the  type  17  night-sky 
radiator  handles  window  radiations  separately  from  outside  window  radiations.  The 
emittances,  reflectances,  and  so  forth,  for  the  window  (subscript  w)  and  outside  win- 
dow (subscript  o)  radiations  used  are  average  values  because  generally  neither  real 
surfaces  nor  the  atmosphere  are  spectrally  flat  either  within  the  window  or  outside  of 
it. 

As  will  be  discussed  in  greater  detail,  the  type  17  night-sky  radiator  has  three  modes 
of  operation.  The  first  mode  is  the  one  illustrated  in  figure  18,  with  a nearly 
transparent  cover  and  an  insulating  air  layer. 

A second  mode  of  operation  is  for  no  cover  and  no  insulating  air  layer.  When  the 
user  specifies  mode  = 2 (parameter  14),  subroutine  NSRAD  ignores  parameters  8,  9, 
10,  and  11,  which  are  the  cover  transmittances  and  reflectances.  Instead,  it  sets  the 
cover  transmittance  equal  to  zero  and  the  cover  reflectance  equal  to  1 minus  the  sur- 
face emittance  (parameters  11  and  12).  It  also  sets  the  inside  convective  heat 
transfer  coefficient  effectively  to  infinity  so  that  the  computed  temperature  difference 
between  the  surface  and  a now  imaginary  cover  is  zero. 

A third  mode  of  operation  is  to  flood  the  area  with  water  to  obtain  additional  cooling 
from  evaporation.  When  the  user  specifies  mode  = 3,  subroutine  NSRAD  will  set  up 
the  cover  transmittance  to  0.0  and  the  cover  reflectance  to  0.04,  the  values  for  water. 
In  this  mode  also  it  sets  the  inside  convective  heat  transfer  effectively  to  infinity  so 
that  the  “cover”  and  surface  temperatures  will  be  the  same.  In  this  mode  the  surface 
is  a water  surface.  For  modes  1 and  2,  subroutine  NSRAD  checks  for  the  dew 
deposition  on  the  cover.  If  the  temperature  of  the  cover  decreases  below  the  dew- 
point, the  subroutine  then  uses  water  values  for  the  thermal  radiation  properties. 
These  are  transmittance  = 0,  reflectance  = 0.04,  and  emittance  = 0.96. 

The  following  notations  will  be  used: 

A area  (m^) 

D density  (kg/m^) 

E rate  of  latest  heat  transfer  (W) 

H rate  of  sensible  heat  transfer  (W) 

J total  number  of  segments 
K mass  transfer  coefficient  (kg/s^m^) 

M mass  flow  rate  (kg/s) 

P barometric  pressure  (kPa) 

0 total  rate  of  enthalpy  change  of  the  water  (W) 

R thermal  radiation  (W,  except  W/m^  for  sky  radiation  per  horizontal  area) 

S solar  radiation  (W/m^) 

T temperature  (®C) 

W humidity  ratio  (kg/kg) 
b coefficient 
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c heat  capacity  (J/kg.°C) 

f fraction  of  black  body  radiation  emitted  in  particular  wave  band 
h convective  heat  transfer  coefficient  (W/m2.®C) 
p vapor  pressure  (kPa) 
a absorptance  (=  emittance) 
i8  see  equation  17-2 

6 slope  with  respect  to  temperature  (change/®C) 
e emittance  (=  absorptance) 

X latent  heat  of  vaporization  (J/kg) 
p reflectance 

a Stephan-Boltzman  constant  (W/m^.K"^) 

T transmittance 
\l/  see  equation  17-3 

Subscripts  are  as  follows: 

R for  thermal  radiation 
S for  solar  radiation 
W for  humidity  ratio 
a air 

ao  air  outside  8-  to  14-/[tm  window 
aw  air  in  8-  to  14-/im  window 
c cover 

CO  cover  outside  8-  to  14-/im  window 
cw  cover  in  8-  to  window 
/ inside  or  between  cover  and  surface 
j index  for  segments  of  radiator 
I liquid  (water) 

n net  (downcoming  minus  upgoing) 

0 outside  8-  to  14-/tm  band  when  referring  to  radiation  or  outside  air  when  referring 
to  convection 
s surface 

so  surface  outside  8-  to  14-/im  window 
sw  surface  inside  8-  to  ^4-nm  window 
w within  8-  to  14-/im  atmospheric  window 

0 refers  to  coefficient  number  1 

1 refers  to  coefficient  number  2; 

series  of  numbers  and  coefficients  continues 

Superscripts  are  as  follows: 

* saturated  condition 
old  from  previous  iteration 
average 

Energy  balance  equations 

A type  17  night-sky  radiator  is  shown  in  figure  18.  Water  is  flowing  into  the  section  at 
a temperature  Tgj  and  cools  to  a temperature  ^ at  the  end  of  the  /th  section. 
Each  arrow  represents  a flux  of  energy,  with  the  direction  of  the  arrows  taken  as 


positive.  Multiple  reflections  of  the  radiation  fluxes  give  rise  to  infinite  geometric  series 
of  terms  involving  the  product  of  the  reflectance  of  the  cover,  p^,  and  the  reflectance 
of  the  surface,  Pg,  as  shown  on  the  left-hand  side  of  equation  1 7-1 . The  series  can 
be  written  in  the  more  convenient  closed  form  on  the  right-hand  side  (Jolley  1961,  p. 
2). 

1 +PsPc  + (PsPc)^  + (PsPc)^  + (PsPc)'^  + -=  1 ^ 07-1) 

Thus,  wherever  the  factor  1/(1  -PgPc)  appears  in  the  following  equations,  the  reader 
should  remember  that  the  whole  series  of  multiple  reflections  is  being  evaluated. 

Referring  to  figure  1 8 and  using  equation  1 7-1 , an  energy  balance  on  the  /th  section 
of  the  surface  can  be  written  as 


where 


^aw^aviAj  ^ao^acAj  "*■  ^swPsw  ^soj^so 

^cwj^cw  ^COj^CO  ^cj  Sy  = 0 


^aw 


^ ~ PswPcw 


^ao~' 


'^co^so 


^ PsoPco 


(17-2) 
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Similarly,  an  energy  balance  on  the  yth  section  of  the  cover  can  be  written  as 
^aw^aw^j  ^ao  ■*"  ^swj'^'sw  ^so/'^so 

^cwj ^cw  ^coj^co  ^aj  ^aj  ~ ^cj  ~ ® 0 7—3) 

where 


“civ’’cwPsiv 
raw  - “ 

' ~ PsivPciv 


“co^coPso 
yao~  ^cd~ 

1 ~ PsoPco 


^sw  = - 


*CIV 


^ PsivPcw 


^so  = 


a 


CO 


^ PsoPco 


Psv/^cw 

rcw~~ 

^ “ PsivPcw 


- 2, 


V'co  = 


Pso“co  _ 
2 

1 - PsoPco 
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Thermal  radiation 


The  total  sky  radiation  per  unit  area,  (W/m^),  and  the  sky  radiation  within  the  8-  to 
14-/im  atmospheric  window  per  unit  area,  Rgw  (W/m^),  are  inputs  3 and  4.  They  can 
be  obtained  as  outputs  21  and  22  from  the  type  1 reader.  As  mentioned  previously, 
the  reader  reads  the  output  from  a DECODER  program  which  computes  Rg  and  Rgiv 
from  National  Weather  Service  temperature,  vapor  pressure,  and  cloud  cover  data  us- 
ing the  model  of  Kimball  et  al.  (1982).  Then,  the  sky  radiation  outside  the  window, 
Rqq,  is  computed  from 


^ao  = ^aw  ^“4) 

The  radiation  emitted  from  the  /th  section  of  the  surface  within  the  8-  to  14-/im  band, 
Rsw  (W),  is  computed  from 

(17-6) 

where  8-  to  14-/im  fraction  of  total  black  body  radiation  emitted  at  temperature 
Tgj,  is  computed  from 

= 0.34906  + 1 .2495  x 1 0 " - 0.91 397  x 1 0 (1 7-6) 

Equation  17-6  was  obtained  by  fitting  = 0.99990)  a quadratic  to  values  calculated 

from  table  2 of  Harrison  {I960,  p.  156)  from  -90®C  to  -i-70°C.  To  facilitate  later 
solution  of  equations  17-2  and  17-3,  equation  17-5  is  linearized  using  (Kimball  1981) 

where 

The  “old”  superscript  means  an  estimate  from  the  previous  iteration. 

The  radiation  emitted  from  the  yth  section  of  the  surface  outside  of  the  8-  to  lA-nm 
band,  R^qj,  is  computed  from 

f^soi  = ^soAj  fsoi<^{Tsi  + 273. 1 6)^  (1 7-9) 

where  the  fraction  of  black  body  radiation  emitted  outside  of  the  8-  to  1A-nm 
band  at  temperature  T^j  is  computed  from 

fsoi=^-fswi  (17-10) 

Equation  17-9  is  linearized  using 

where 

W)  = w""*  V“  + 273.1 6)3  (17-12) 
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Likewise,  the  radiation  emitted  from  the  /th  section  of  the  cover  is  computed  from 


^cwj~^cw  ^cwj  <^  ( Tgy  + 273 . 1 6)“^ 

(17-13) 

^coj  = ^co  A ^co/  ^(7c/  + 273.1 6)4 

(17-14) 

which  are  linearized 

using 

D _o  old;:  IT  —T 

'^civy  — '^ciy/  ^Rcwj^'cj  ' cj  > 

(17-15) 

where 

iRowi  = ^ W”  ( + 273. 1 6)3 

(17-16) 

and 

p _p  old.;:  IT  —T  oldt 

'^coy  '^coj  ^^Rcoj\'cj  cj  > 

(17-17) 

where 

«Roo/  = + 273.1 6)3 

(17-18) 

Convection  above  the  cover 

The  rate  at  which  sensible  heat  is  convected  from  the  air  to  the  /th  section  of  the 
cover  is  computed  from 


Har^i^oiTa-Tci)  07-19) 

where 

h^  = bo  + b,u^  (17-20) 

The  /7q  (W/m2'°C)  is  the  outside  heat  transport  coefficient,  (m/s,  input  1)  is  the 
outside  wind  velocity,  and  bg  b^  are  coefficients.  Numerous  expressions  have 
been  used  for  (Kimball  1973).  Duffie  and  Beckman  (1974,  p.  83)  list  bo  = 5.7  and 
bi  =3.8  from  McAdams. 

The  rate  at  which  latent  heat  is  convected  from  the  air  to  the  /th  section  of  cover 
when  the  cover  becomes  sufficiently  cold  is 

E^j  = AjK^\{W^-W^j)  (17-21) 

where  the  mass  transfer  coefficient,  K^,  is  computed  from  the  heat  transfer  coefficient 
(ASHRAE  1972,  p.  72)  and  the  specific  heat  capacity  of  the  air,  Cg. 

Ko  = holCa 

Cg  = 1 ,005  + 1 ,859H/ao  (1 7-22) 
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The  latent  heat  of  vaporization,  X (J/kg),  is  computed  from 

X = 2.501  X 1 06  - 2,381 7^°'^  (1 7-23) 

The  cover  humidity  ratio,  tV^,  depends  on  the  temperature  of  the  cover.  If  the 
temperature  of  the  cover  is  below  the  dewpoint  of  the  outside  air  (modes  1 and  2),  or 
the  device  is  flooded  (mode  3),  the  cover  is  at  saturation.  This  can  be  expressed  as 

Wcj  = W^j*  if  W^j*  < Wg  for  mode  = 1 or  2 

Wcj=Wa  if  WQ*>Wg  for  mode  = 1 or  2 (17-24) 

Wcj  = Wcj*  for  mode  = 3 

The  saturation  humidity  ratio  is  computed  from 

Wcj*  = 0.621 98pc//(P3 -Pcj*)  (17-25) 

where  the  saturation  vapor  pressure,  Pcj* , is  computed  from  Tetens’  equation  (Murray 
1967): 


Pcj*  = 0.61 078exp[1 7.2694 7cyO'd/(7cyO'd  + 237.30)]  (1 7-26) 

The  slope  of  the  saturation  humidity  ratio  curve  with  temperature,  d^cj*  =dWcj*ldT,  is 
computed  from  (Kimball  1981): 


Wei*  4,098.03 

^Wcj*  - )[  Tl  (ij  271 

' ' 0.62198  (7cyO''^  + 237.30)2  (17-27) 

Thus,  equation  17-24  is  linearized  using 

^cy  = 5 wc/T’ey  - 7-28) 

where 

^wci  = ^wci*  Wci^^^<Wg  for  mode  = 1 or  2 

Swcj  = 0 if  Wcj^'^>Wg  for  mode  = 1 or  2 (17-29) 

^wci  = ^wci*  n^ocie  = 3 

Convection  below  the  cover 

The  rate  at  which  sensible  heat  is  convected  and  conducted  downward  from  the 
cover  to  the  surface  is  computed  from 

Wcy=W7cy-7sy)  (17-30) 
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where  hjj  (W/m2-®C)  is  the  inside  heat  transfer  coefficient.  Numerous  expressions 
have  been  used  to  compute  inside  heat  transfer  coefficients  from  temperature  dif- 
ferences between  bulk  air  and  a surface  (Kimball  1973).  The  form  of  the  equation 
used  is 


hii  = b2{ATf^  (17-31) 

where  £>2  and  are  parameters  5 and  6,  and  AT  is  T^j-T^j  or  T^j-  T^j,  whichever  is 
positive. 

ASHRAE  {1972,  p.  40)  lists  ^2  as  1.52  and  b^  as  0.33.  Subroutine  NSRAD  divides 
the  value  from  equation  17-31  by  2 because  there  are  two  film  resistances,  one  for 
the  cover  annd  the  other  for  the  radiating  surface.  Also  following  ASHRAE,  the  value 
from  equation  1 7-31  is  divided  by  2 again  when  the  temperature  of  the  cover,  T^y,  is 
warmer  than  that  of  the  radiating  surface,  T^y,  which  is  the  normal  operating 
condition. 

When  mode  = 2 or  3,  h,y  is  set  equal  to  500  W/m2-®C  to  remove  the  insulating 
effect  of  an  air  layer. 

It  is  assumed  that  there  is  no  latent  heat  transfer  below  the  cover  because  the  air 
layer  is  too  thin  to  contain  a significant  quantity  of  precipitable  water. 

Convection  from  the  water  to  the  surface 

The  rate  at  which  sensible  heat  is  convected  and  conducted  from  the  water  to  the 
surface  is  computed  from 


(17-32) 

where  hgj  (W/m^‘  ®C)  is  the  liquid  heat  transfer  coefficient.  It  is  computed  from 

/7,y  = b4(f,y-T3y)0-33  (17-33) 

where  b^  is  parameter  7.  Equation  17-33  was  obtained  following  Duffie  and  Beckman 
{1974,  equation  4.11.8)  for  one  water  film  (rather  than  two  as  in  Dufie  and  Beckman) 
and  a 5-cm  depth  of  water.  With  natural  convection  as  the  predominant  mechanism 
of  heat  transfer,  b^  is  230.  The  assumption  is  also  made  that  the  minimum  value  of 
h(j  is  60  W/m2-°C,  which  corresponds  to  the  thermal  conductivity  of  water  through  a 
film  1 cm  thick. 


In  equations  17-32  and  17-33  is  the  average  bulk  water  temperature  somewhat 
below  the  temperature  of  the  radiating  surface.  For  the  /th  section,  it  is  defined  as  the 
average  temperature  between  the  water  entering  and  leaving  section  j: 


^ej-iTej+  T£(y+iy)/2 


(17-34) 


The  rate  at  which  heat  is  convected  to  the  surface  must  equal  the  rate  at  which  the 
water  cools.  For  the  segment  of  the  radiator  shown  in  figure  18, 


H(j  - FC({T(j  - T(^j + 1 )) 


(17-35) 
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Combining  equations  17-32,  17-34,  and  17-35, 


^ 2Fc, 7, ,.7/M 
2FC(  + A|^)^ 


(17-36) 


Equation  17-36  links  the  average  water  temperature  of  a segment  to  the  temperature 
of  the  water  entering  the  segment,  T(j,  and  the  temperature  of  the  radiating  surface 
of  the  segment,  T^j.  Starting  with  the  first  segment,  the  entering  water  temperature  is 
obtained  from  input  1 . The  surface  temperature,  T^y,  is  not  known  a priori  but  must 
come  from  the  solution  of  the  energy  balance  equations  17-2  and  17-3.  Yet,  to  solve 
these  equations,  a value  for  T(j  is  needed  to  obtain  H^y  from  equation  17-32. 

Therefore  T^y  is  first  estimated  from  equation  17-36  by  using  T^y®'^  from  the  previous 
iteration  for  T^y.  As  the  iteration  proceeds,  progressively  better  estimates  of  T^y  lead  to 
better  estimates  of  T^y,  which  lead  to  better  estimates  of  T^y,  and  so  on  to 
convergence. 

Solar  radiation 

It  is  anticipated  that  a night-sky  radiator  would  usually  be  operated  only  at  night  when 
solar  radiation  is  absent.  However,  there  may  be  some  possibility  for  using  radiators 
that  are  shaded  from  the  direct  sun.  In  either  event,  there  is  a need  to  predict 
radiator  temperatures  during  the  daytime  so  that  thermostats  can  be  used  for  con- 
trollers. The  solar  radiation  absorbed  by  the  /th  section  of  the  surface  is  modeled 
simply  as 


Sj  = iTOi)sAjSg 


(17-37) 


where  (ra)^  is  the  effective  transmittance-absorptance  product  of  the  cover  and 
surface  for  solar  radiation,  and  Sg  is  the  solar  radiation  impinging  on  the  radiator. 
Usually,  Sg  is  the  total  direct  beam  plus  diffuse  radiation,  but  it  is  only  the  diffuse  for 
shaded  radiators.  It  is  assumed  that  no  significant  amount  of  solar  radiation  is 
absorbed  by  the  cover. 

Solving  for  Tgy  and  T^y 

When  equations  17-7,  17-11,  17-15,  17-17,  17-19,  17-21,  17-28,  17-30,  17-32, 
and  17-37,  are  substibuted  into  equations  17-2  and  17-3  and  rearranged,  the  follow- 
ing equations  result: 

For  the  surface. 


(17-38) 


For  the  cover, 


^sy  i^Rswj'^sw  ^Rsoj^so  "*■ 


+ AjK^\{W,P'<i-6wcjTci^'^) 


(17-39) 


Equations  1 7-38  and  1 7-39  form  a set  of  two  equations  with  two  unknowns,  and 
they  can  be  solved  easily  using  Cramer’s  rule.  Starting  with  the  first  section  of  the 
radiator,  an  initial  guess  is  made  for  and  Then,  improved  estimates  of 
Ts^  and  Tc^  are  obtained  from  equations  17-38  and  17-39.  The  old  values  are  set 
equal  to  these  new  ones  and  the  iteration  proceeds  to  convergence.  Because  the 
slopes  for  radiation,  6^,  and  humidity  ratio,  b^,  are  obtained  from  analytical 
equations,  the  convergence  is  rapid  and  accurate. 

After  7-C1  and  are  obtained  from  the  first  section,  the  average  water  temperature 
for  the  first  section  7-n  (from  equation  1 7-36),  is  used  in  equation  1 7-34  to  obtain  the 
temperature  of  the  water  leaving  the  first  section,  T(2-  This  exit  temperature  is  then 
the  entering  water  temperature  for  the  second  section,  and  the  computations  are 
repeated  for  the  second  section,  then  the  third,  and  so  forth,  for  all  the  sections.  The 
number  of  sections  has  been  arbitrarily  set  in  subroutine  NSRAD  to  5.  This  should  be 
adequate  to  describe  the  nonlinear  change  in  temperature  with  distance  down  the 
radiator  for  most  cases.  It  can  be  changed  to  another  number  by  changing  a single 
statement  in  NSRAD.  If  the  user  sets  parameter  1 5 to  1 , a segment-by-segment  sum- 
mary of  the  temperatures  and  energy  fluxes  along  the  radiator  can  be  obtained. 

Net  long-wave  radiation 

Net  long-wave  radiation  is  defined  as  the  rate  of  downcoming  radiation  minus  that  of 
the  upgoing.  The  net  exchanges  of  radiation  above  the  cover,  and  between  the 
cover  and  surface,  are  two  entities  that  can  be  measured  using  net  radiometers. 
The  net  radiation  also  is  a direct  measure  of  the  effectiveness  of  the  device  as  a 
radiator.  Therefore,  after  T^y  and  T^y  are  computed  for  each  section,  subroutine 
NSRAD  also  computes  R^^y  and  R^gy  for  each  /th  section.  Referring  to  figure  18  and 
equation  1 7-1 , the  equations  used  are  derived  as  follows; 

Above  the  cover. 


so^co 


so^co 


(17-40) 
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Between  the  cover  and  surface, 


Type  18 
Evaporative 
Air  Cooier 


^nsj~^aw  ( 


^civ  ’’civPsw 
1 “ PswP 


) + ^ao  ( 


sw^cw 


"^co  ’’coPso 
1-PsoP 


so^co 


1-p 


^swj  ( 


cw 


^cwj  ( 


^ PswPcw 
l-Psw 
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1-p 


) ^soj  ( 


CO 


) ^co/  ( 


1 PsoPco 
1 ~ Pso 
1 ~ PsoPco 


(17-41) 


Outputs 

The  code  for  the  outputs  is  listed  in  appendix  E.  Output  1 is  the  water  temperature 
from  the  last  segment,  Tq.  Output  2 is  the  total  rate  of  enthalpy  change  of  water 
computed  from 


Q-F  C(  (7^^  - T(j) 


(17-42) 


Output  3 is  net  radiation  above  the  cover  computed  from  equation  1 7-40  and 
summed  over  all  segments.  Outputs  4 and  5 are  rates  of  sensible  and  latent  heat 
convected  from  the  air  to  the  cover.  They  are  computed  from  equations  17-19  and 
17-21  and  summed  for  all  segments. 

The  type  18  evaporative  air  cooler  is  one  of  the  simplest  devices  (fig.  1).  It  is 
characterized  by  specifying  a maximum  air  flow  rate,  (kg/s),  as  parameter  1 
and  an  effectiveness  or  saturation  efficiency,  77,  as  parameter  2.  See  appendix  E for 
parameter,  input  and  output  codes. 

The  outlet  flow  rate  M^,  is  computed  first  as  the  product  of  and  a control 
variable,  7: 


/Wo  = 7Wmax  08-1) 

The  control  variable  7 (input  4)  can  be  supplied  by  a type  4 thermostat  or  similar 
device. 

The  outlet  dry  bulb  temperature,  is  computed  next  using  the  definition  of  effec- 
tiveness, 7],  (Kimball  et  al.  1977)  from 


^do  = Ffjj  - ri(T - T^D  (1 8-2) 

where  T^j  is  the  inlet  dry  bulb  temperature  and  T^j  is  the  inlet  wet  bulb  temperature, 
which  are  available  for  outside  conditions  from  the  type  1 reader.  When  = 0,  T^q  is 
set  equal  to  T^j. 
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Type  19 
Rock  Bed 


To  make  the  cooler  compatible  with  other  MEB  models,  the  outlet  humidity  ratio,  Wq, 
is  also  calculated.  First  the  saturation  vapor  pressure  at  wet  bulb  temperature  is  ob- 
tained using  Tentens’  equation  (Murray  1967)-. 

p*  =0.6^078exp[^7.2694T^.j  l{T^j  + 237.30)]  (18-3) 

Then,  the  saturation  humdity  ratio  at  T^j  is  computed  from  p*  and  the  barometric 
pressure,  P (ASHRAE  1972,  p.  99): 

= 0.621 98p*/(P  - p*)  (18-4) 

Finally,  the  outlet  humidity  ratio,  is  calculated  from  (ASHRAE  1972,  p.  100): 


l/\/* (2,468  X 1 03  - 2,3287^,)  - 1 ,005(T^o  - TJ 
2,468  X 1 03  + 1 ,8597^0  - 4,1 68  7^, 


(18-5) 


The  rate  of  evaporation  of  water  in  the  cooler,  E (kg/s),  is  calculated  from  the  change 
in  humidity  ratio  of  the  air  as  it  passes  through  the  cooler.  First  the  inlet  humidity 
ratio,  Wj,  is  calculated  using  Tdi  instead  of  in  equation  18-5.  Then, 


E = M^(W^-W,)  (18-6) 

The  type  19  rock  bed  simulates  the  performance  of  a rock  bed  used  for  thermal 
energy  storage,  with  air  as  the  heat  transfer  fluid.  The  model  used  is  based  on  that 
of  Mumma  and  Marvin  {1976),  theirs  being  more  stable  and  accurate  than  previous 
numerical  rock  bed  models.  The  model  assumes  that  the  particle  size  is  small 
enough  so  that  temperature  gradients  inside  the  particles  are  insignificant,  that  is, 
that  the  Biot  number  is  less  than  0.1  (Duffie  and  Beckman  1974).  A significant 
enhancement  to  the  model  of  Mumma  and  Marvin  is  the  consideration  of  latent  heat 
transfer.  Condensation  of  moisture  can  occur  on  the  particles  whenever  the  humidity 
ratio  of  the  bulk  air  exceeds  the  saturation  humidity  ratio  of  the  air-rock  interface, 
which  is  at  rock  temperature.  It  is  assumed  that  no  significant  absorption  of  moisture 
occurs  and  that  all  condensed  water  drains  away.  Thus,  condensation  can  occur  in 
the  bed  but  not  evaporation. 

The  following  symbols  will  be  used: 

A cross-sectional  area  of  rock  bed  (m^) 

C integration  constant 

Df.  equivalent  diameter  of  individual  rocks  (m) 

E enthalpy  (J/kg) 

F mass  flow  rate  (kg/s) 

G mass  flow  rate  per  unit  area  (kg/s.m^) 

K mass  transfer  coefficient  (kg/s.m^) 

L length  of  rock  bed  (m) 

N number  or  rock  bed  segments 
P barometric  pressure  (kPa) 

7 temperature  (°C) 

U loss  coefficient  (W/m2.°C) 
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y volume  (m^) 

W humidity  ratio  (kg  H20)/kg  air) 
a rock  surface  area  per  volume  of  rock  bed  (m^/m^) 
c specific  heat  (J/kg*®C) 

h heat  transfer  coefficient  (W/m2.®C) 

volumetric  heat  transfer  coefficient  (W/m^®C) 
f length  variable  (m);  Ai  is  the  length  of  one  segment 
p water  vapor  pressure  (kPa) 
s length  of  perimeter  around  rock  bed  (m) 
t time  (s) 

€ fraction  of  void  space  in  the  rock  bed  (m^/m^) 

X effective  thermal  conductivity  of  the  rock  bed  (W/m*®C) 
p density  (kg/m^) 

Subscripts  are  as  follows: 

a air 
b bottom 
e environment 

n index  for  rock  bed  segments 
o outside,  or  base  when  referring  to  enthalpy 
r rock 
t top 
V volumetric 
w vaporization 

A cross-section  of  a rock  bed  is  illustrated  in  figure  19.  Mass  flows  of  air  can  enter 
the  top,  Fp  or  bottom,  F^,  of  the  rock  bed,  but  not  at  the  same  time.  For  derivation  of 
the  equations,  Ff  will  be  considered  first.  The  rock  bed,  which  is  L meters  deep,  is 
considered  to  be  composed  of  N segments  of  length  = UN.  Partially  following 
Mumma  and  Marvin  {1976),  the  equation  for  heat  transfer  from  the  air  to  the  rocks  at 
any  given  point  in  the  bed  is 


Gfi^{-dT^)  = ha{T^-T,)de  (19-1) 

where  I is  the  distance  in  the  direction  of  flow.  Similarly,  assuming  the  rocks  are 
completely  wetted  or  completely  dry,  the  equation  for  mass  transfer  from  air  to  rock 
bed  is  (ASHRAE  1972,  p.  72) 


G^-dW^)  = Ka{W^-W,)d( 


(19-2) 


where 


if  W^'<W^ 
or  W,=  W^  if 

Combining  equations  1 9-1  and  1 9-2  with  the  enthalpy  of  vaporization  yields 

- G,(c,  dT^  + = mw,  - W,)E^  + ha{T^  - T,)]dl  (1 9-3) 
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Figure  19. 

Cross  section  through  a type  19  rock  bed.  The  T,  \N,  E, 
and  F refer  to  temperature,  humidity  ratio,  enthalpy,  and 
mass  flow,  respectively. 
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Using  the  Lewis  relation,  h = KCg,  and  the  definition  of  enthalpy  for  air,  equation  19-3 
reduces  to 

- GfiE^  = Ka{E^-E,)di  (19-4) 

Equation  1 9-4  equates  the  rate  of  change  in  enthalpy  of  the  air  to  the  rate  of  en- 
thalpy transfer  from  the  air  to  the  rock  surfaces,  where  E^  is  the  enthalpy  of  the  air  at 
the  rock-air  interface  at  rock  temperature,  and  E^  is  the  enthalpy  of  the  bulk  air  in  the 
voids  between  the  rocks.  Following  Mumma  and  Marvin,  equation  19-4  can  be  rear- 
ranged with  the  variables  separated: 


c/Ea  _Ka  _ Ka 


The  solution  to  equation  19-5  is 

Ea  = E, + Cexp(  - KallG)  (1 9-6) 

Equation  19-6  is  valid  for  any  point  in  the  rock  bed;  but  the  rock  enthalpy,  Ep  varies  } 
continuously  through  the  bed.  If  the  segmentation  scheme  illustrated  in  figure  19  is  I 
utilized  and  the  segments  are  short  enough  so  that  E^  is  effectively  a constant  within  I 
each  individual  segment,  then  the  integration  constant,  C,  can  be  evaluated.  For  the  | 
nth  segment,  the  air  enters  at  a relative  distance  of  £ = 0 with  an  enthalpy  of  E^.  \ 

Substituting  this  boundary  condition  into  equation  19-6,  C is  found  to  be  Egp-Ep,.  |j 

Then,  at  ( = A(,  the  air  exits  the  segment  with  an  enthalpy,  Eg^p+i),  given  by  | 

^a(n  + 1 ) = + (^an  " ^m)exP( " KaMIG)  (1 9-7) 

Starting  at  the  end  where  the  air  enters,  equation  19-7  provides  the  means  to  com-  ! 

pute  the  change  in  enthalpy  of  the  air  as  it  passes  through  the  rock  bed  from  seg-  j 

ment  to  segment.  However,  the  changes  in  temperature  and  humidity  ratio  are  more  , 
useful,  and  they  can  be  obtained  from  the  enthalpy  change.  The  assumptions  have 
been  made  that  the  segments  are  small  enough  that  the  rock  temperature  is  effec- 
tively a constant  within  a segment  and  that  the  rocks  are  small  enough  so  that  the 
rock-air  interface  is  at  rock  temperature.  From  the  analysis  for  direct-air-water-contact 
equipment  (ASHRAE  1972,  p.  22),  the  air  must  follow  a straight  line  on  an  enthalpy-  j 
temperature  diagram  from  its  state  at  the  beginning  of  a segment  toward  the  state  of 
the  air-rock  interface.  Therefore,  the  temperature  change  through  a segment  must  be 

proportional  to  the  enthalpy  change,  or  mathematically,  j 

! 

• I 

(19-8)  : 

T -T  E -E  i 

'an  ' rn  ‘-an  ‘-rn  ' 

Solving  for  the  temperature  of  the  air  exiting  segment  n,  ' 

7a(.  + l)  = 7:„  + (r,„-r„)exp(-/<,Af/G)  (19-9)  ,1 


I 
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Consequently,  the  exit  humidity  ratio  can  be  obtained  from  the  defining  equation  for 
enthalpy: 

^a(n  + 1)  (19-10) 

" 2.468  X 1 0®  + 1 ,S59Tg^„  + 

The  preceding  equations  all  pertain  to  the  change  in  state  of  the  air  as  it  passes 
through  the  rock  bed.  Of  course,  the  enthalpy  gained  or  lost  by  the  air  will  cause  the 
rock  temperature  to  change.  An  energy  balance  can  be  written  for  the  rocks  in  each 
segment. 

The  rate  of  energy  addition  to  rocks  equals  the  following: 

+ the  rate  of  enthalpy  change  of  the  air  passing  through  segment 

- the  rate  of  loss  to  the  surrounding  environment 

- the  rate  of  conduction  of  heat  to  the  next  segment 

+ the  rate  of  conduction  of  heat  from  the  preceding  segment, 

or,  mathematically. 

AA^(1  -e)pfi^dTJdt)=  +G^{Ea„-Ea(„^i,)  (19-11) 


-UAWm-Te) 


From  equation  19-11  the  rate  of  temperature  change  of  the  nth  segment.  dT^f^dt,  is 
obtained.  The  same  equation  applies  to  all  segments  except  the  top  and  bottom.  For 
these  segments  the  areas  of  the  ends  in  the  environmental  loss  terms  are  A(s+A, 
and,  of  course,  there  is  no  conduction  from  another  segment  above  the  top  or  from 
below  the  bottom.  The  values  of  dTJdt  for  all  the  segments  are  returned  to  the  main 
program,  which  performs  the  integration  and  computes  new  estimates  of  the  rock  bed 
temperatures,  T^,  as  described  in  the  main  program  section. 

The  air  flow  was  assumed  to  be  from  top  to  bottom  in  the  derivation  of  the  previous 
equations.  Equivalent  equations  for  flow  from  bottom  to  top  have  been  written,  and 
they  also  are  incorporated  in  subroutine  ROCK.  This  capability  allows  the  user  to 
take  the  advantage  of  temperature  stratification  in  the  bed  by  reversing  flows  between 
charging  and  discharging  the  bed. 

The  required  parameters  and  inputs  are  listed  in  appendix  E-  Most  are  self- 
explanatory,  but  some  need  more  elaboration.  Parameter  5 is  the  equivalent  diameter 
of  the  individual  rocks,  Df.  It  is  defined  by 


1/3 


(19-12) 


where  is  the  average  volume  of  an  individual  rock.  The  rock  diameter  is  used  to 
compute  the  volumetric  heat  transfer  coefficient,  (W/®C*m3  of  rock  bed),  which  is 
the  product  of  the  more  ordinary  area-based  heat  transfer  coefficient,  h (W/®C»m2  of 
heat  transfer  area),  and  the  amount  of  surface  area  of  rock  for  heat  exchange  per 
unit  volume  of  rock  bed,  a (m^/m^): 


h^  = ha  (19-13) 

Subroutine  ROCK  uses  equation  19-14,  from  Lof  and  Hawley  {1948),  to  compute  h^: 

/7^,  = 650(G/D/-7  (19-14) 

Duffie  and  Beckman  {1974)  suggested  using  equation  19-14,  and  Mumma  and 
Rodriguez-Anza  {1979)  reported  good  agreement  between  temperatures  it  predicted 
and  measured  temperatures  in  their  rock  bed. 

Equation  19-14  also  contains  the  mass  flow  rate  per  unit  of  bed  area,  G (m^),  so  the 
rate  of  heat  transfer  is  flow-rate  dependent.  If  the  flows  entering  the  top,  Fp  or  bot- 
tom, Ff^,  are  controlled  by  type  4 thermostats,  then  they  are  average  flows  for  a 
simulation  time  increment.  In  actuality,  the  bed  more  likely  would  be  cycled  on,  off, 
on,  off,  several  times  rather  than  have  some  steady  average  flow.  The  heat  exchange 
would  occur  only  during  the  portion  of  the  time  the  bed  has  maximum  flow  through 
it;  and,  therefore,  the  G in  equation  19-14  must  be  based  on  the  maximum  flow  rate. 
Therefore,  subroutine  ROCK  requires  value  of  7,  and  7^  as  inputs  7 and  8.  These 
control  variables  are  the  same  ones  that  would  control  the  fans  supplying  Ff  and 
The  value  of  G to  be  used  in  equation  19-14  is  obtained  by  dividing  F^  or  Fb> 
whichever  is  larger,  by  its  corresponding  7 and  the  cross-sectional  area  of  the  bed. 

After  has  been  computed,  the  volumetric  mass  transfer  coefficient,  = Ka,  is  ob- 
tained by  dividing  by  the  humid  specific  heat  of  the  air,  Cg  (J/kg*®C): 

Ca  = 1,005-1-1, 8951V  (19-15) 

The  value  of  IV  used  in  equation  19-15  is  IVg.,  if  the  flow  is  from  top  to  bottom  or 
^a(N  + 1)  reverse. 

Parameter  6 is  the  effective  volumetric  heat  capacity  of  the  rock  bed,  c^.  It  is  the 
product  of  the  specific  heat  of  the  solid  rock,  (J/kg*®C),  the  density  of  the  solid 
rocks,  p^  (kg/m^),  and  one  minus  the  fraction  of  the  bed  that  is  void  space  (or  air): 

c^  = c,pX1-6)  (19-16) 


Saturation  humidity  ratios  are  computed  from 

IV*  = 0.621 98p‘/(Po-p*)  (19-17) 

where  the  saturation  vapor  pressure,  p*  (kPa),  are  computed  from  Tetens’  equation 
(Murray  1967): 


p*  = 0.61 078exp(1 7.26947/(7 -H  237.30)) 


(19-18) 


Type  20 

Arithmetic  Calculator 


As  listed  in  appendix  E,  the  temperatures  and  humidity  ratios  of  the  air  streams  leav- 
ing the  bottom  or  top  of  the  bed  are  outputs  from  the  type  19  rock  bed.  From  the 
total  change  in  ethalpy  and  humidity  ratio  of  the  air  passing  through  the  bed,  the 
rates  of  energy  addition  to  the  bed  and  the  rates  of  water  condensation  in  the  bed 
for  the  two  streams  are  output  separately  also.  In  addition,  the  temperatures  of  the 
rocks  in  all  the  individual  segments  are  outputs. 

The  type  20  arithmetic  calculator  is  also  adapted  from  Klein  et  al.  {1976).  It  is  a 
useful  device  for  scaling  output,  for  combining  control  signals,  and  for  many  other 
manipulations.  It  works  like  a reverse-polish  logic  calculator  with  an  operational  stack. 
The  parameters  are  coded  operational  commands  analogous  to  keystroke  commands 
which  direct  the  calculator  to  perform  arithmetic  operations  on  the  inputs.  The  code 
for  the  operations  are  as  follows: 

0 Enter.  The  value  of  the  next  input  is  placed  on  the  stack. 

1 Multiply.  The  two  values  on  top  of  the  stack  are  replaced  with  their  product. 

2 Divide.  The  two  values  on  top  of  the  stack  are  replaced  by  their  quotient.  The 
value  entered  last  is  divided  into  the  previous  value. 

3 Add.  The  two  values  on  top  of  the  stack  are  replaced  by  their  sum. 

4 Subtract.  The  two  values  on  top  of  the  stack  are  replaced  by  their  difference. 

The  value  entered  last  is  subtracted  from  the  previous  value. 

5 Exponentiate.  The  two  values  on  top  of  the  stack  are  replaced  by  the  previous 
value  raised  to  the  power  given  by  the  most  recent  entry. 

6 Log^Q.  The  top  value  in  the  stack  is  replaced  by  log^o  of  itself. 

7 Negate.  The  top  value  in  the  stack  is  replaced  by  the  negative  of  itself. 

8 Select  Positive.  The  top  value  in  the  stack  is  left  unchanged  unless  it  is  negative, 
in  which  case  it  is  replaced  by  0. 

9 Logical  OR.  The  larger  of  the  two  highest  values  becomes  the  top  value  of  the 
stack. 

10  Logical  AND.  The  smaller  of  the  two  highest  values  becomes  the  top  value  of 
the  stack. 

- 1 Constant.  The  value  of  the  next  parameter  is  placed  on  top  of  the  stack  as  a 
constant. 

After  all  of  the  parameter  operations  have  been  performed,  the  value  on  the  top  of 
stack  becomes  output  1 . Output  2 is  equal  to  1 minus  output  1 and  is  useful  when  a 
simultaneous  reverse  logic  value  is  needed  for  control  signal  manipulations. 

There  is  one  special  case.  If  the  first  operational  command  is  not  0 or  - 1 , ARITH 
assumes  that  there  are  two  inputs  and  only  the  one  command. 

As  listed  in  appendix  E,  the  first  parameter  is  the  total  number  of  parameters,  the 
second  parameter  is  the  number  of  inputs,  and  the  third  and  subsequent  parameters 
are  the  sequence  of  operational  commands  and  constants.  The  use  of  ARITH  can 
best  be  illustrated  by  examples. 

Example  1.  A latent  energy  flux  in  watts  needs  to  be  divided  by  2.44  x 10®  to  obtain 
the  equivalent  water  flux  in  kilograms  per  second.  The  single  input,  X.,,  is  the  latent 
energy  flux.  The  parameters  needed  to  accomplish  the  conversion  are 

5,  1,  -1,  2.44E6,  2 
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Example  2.  Four  inputs  needed  to  be  summed.  The  required  parameters  are 


9,  4,  0,  0,  0,  0,  3,  3,  3 


or 

9,  4,  0,  0,  3,  0,  3,  0,  3 


Type  21 

On-Off 

Thermostat 


Type  22 

Multistage 

Thermostat 


or 

9,  4,  0,  0,  3,  0,  0,  3,  3 

Example  3.  The  ratio  X^IX2  needs  to  be  obtained.  The  inputs  must  be  in  the  order 

Xi,X2 

The  parameters  to  accomplish  the  division  would  be 
5,  2,  0,  0,  2 

or  taking  advantage  of  the  special  two-input  case  the  parameters  could  also  be 
3,  2,  2 

This  thermostat  is  a simple  on-off  device.  When  the  temperature  (or  other  variable) 
given  as  input  1 is  less  than  a set  point,  given  as  parameter  1 , the  value  of  output  1 
is  set  equal  to  1 .0  and  the  value  of  output  2 is  set  equal  to  0.0.  When  the 
temperature  is  greater  than  or  equal  to  the  set  point,  outputs  1 and  2 are  set  equal 
to  0.0  and  1 .0,  respectively. 

If  the  value  of  parameter  2 is  2,  a differential  mode  is  used  and  the  set  point  is  com- 
pared with  input  1 minus  input  2. 

Because  the  type  21  on-off  thermostat  is  either  on  or  off,  it  can  oscillate  from  on  to 
off  with  successive  iterations.  The  user  should  be  aware  of  this  potential  problem 
and,  if  necessary,  can  use  the  more  complicated  type  4 thermostat,  which  is  a 
proportional  controller. 

The  type  22  multistage  thermostat  is  an  extention  of  the  type  4 thermostat.  A type  4 
thermostat  controls  proportionally,  based  on  the  history  of  responses  to  calls  on 
previous  iterations.  When  several  type  4 thermostats  are  used  to  control  several 
heating  and  cooling  stages,  occasionally  the  model  may  become  unstable.  Instability 
can  occur  when  outside  temperatures  change  rapidly  from  one  simulation  time  to  the 
next.  Under  such  conditions,  control,  which  should  shift  from  one  stage  to  the  next, 
may  not  do  so.  Instead,  two  or  more  of  the  type  4 thermostats  may  attempt  to  control 
proportionally  such  that  they  effectively  fight  each  other,  and  convergence  cannot  be 
attained.  The  type  22  multistage  thermostat  is  like  several  type  4 thermostats  but  has 
additional  logic  to  resolve  conflicts  between  stages,  and  only  one  stage  is  allowed  to 
control  proportionally  at  a time. 

As  listed  in  appendix  E,  each  stage  has  its  own  set  point,  and  there  can  be  up  to  10 
stages.  Parameter  1 is  the  total  number  of  parameters  which  equals  the  number  of 
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stages,  N,  plus  2.  Parameter  2 is  a master  set  point,  that  divides  heating  from 
cooling  stages.  It  can  be  anywhere  between  the  warmest  set  point  for  controlling 
heaters  and  the  coolest  set  point  for  controlling  coolers.  Parameters  3 through  N + 2 
are  the  set  point  temperatures  from  coldest  to  warmest  for  the  various  stages. 

The  type  22  multistage  thermostat  has  one  input,  Tj,  the  temperature  of  the  structure 
or  space  that  is  being  heated  or  cooled  by  the  several  devices  controlled  by  the  type 
22  thermostat. 

The  type  22  multistage  thermostat  has  two  outputs  for  each  stage,  as  listed  in  appen- 
dix E and  illustrated  in  figure  20.  Outputs  1 and  2 are  for  the  coldest  stage,  3 and  4 
for  the  second  coldest,  and  so  forth  until  2A/-1  and  2N  for  the  warmest.  The  even 
outputs  are  1 minus  the  corresponding  odd  outputs.  The  odd  outputs  should  be  used 
for  controlling  heaters  and  the  even  for  controlling  coolers. 

The  criteria  used  to  resolve  conflicts  are  the  following.  First,  all  control  variables 
more  than  one  stage  away  from  Tj  must  be  fully  off  or  on  (0  or  1).  That  is  if 

(n  + 1)’  then  all  the  odd  (heater)  outputs  for  stages  below  n are  set  equal 
to  0 and  all  the  odd  outputs  for  stages  above  n + ^ are  set  equal  to  1 . Second,  if  Tj 
falls  between  two  stages  and  one  of  those  stages  already  is  controlling  proportionally, 
that  stage  will  be  allowed  to  continue  to  control  proportionally  and  the  other  will  be 
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Figure  20. 

Illustration  of  typical  outputs  from  a type  22  multistage 
thermostat  which  has  four  stages:  two  for  heating  and 
two  for  cooling.  Each  stage  has  its  own  set  point, 
and  a master  set  point,  , divides  heating 

from  cooling.  Five  cases  are  shown  with  a different  input 
temperature,  Tj,  for  each  case. 
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Type  23 

Curtain  Heat  Exchanger 


left  in  the  same  state.  The  third,  fourth,  and  fifth  criteria  all  pertain  to  having  both 
stages  adjacent  to  T)  trying  to  control  proportionally.  Third,  if  7}  falls  between  the 
warmest  heating  and  the  coolest  stages  as  defined  by  then  the  proportional  con- 
trol will  be  given  to  the  stage  having  the  larger  value  of  the  control  variables,  and  the 
other  stage  will  be  turned  off  (odd  output  if  heating  stage  and  even  output  if  cooling 
stage).  Fourth,  if  7)  falls  between  two  heating  stages,  proportional  control  will  be  given 
to  the  warmer  stage  and  the  cooler  stage  will  be  turned  off  (odd  output  = 0).  Fifth,  if 
Tj  falls  between  two  cooling  stages,  proportional  control  will  be  given  to  the  cooler 
stage  and  the  warmer  stage  will  be  turned  off  (even  output  = 0). 

The  action  of  the  type  22  multistage  thermostat  is  illustrated  in  figure  20  for  five  dif- 
ferent values  of  the  input  temperature,  7).  For  the  first  case  7}  is  colder  than  the 
coolest  set  point,  . The  stage  is  controlling  proportionally  with  its  heater  operating 
at  0.5  of  capacity.  The  second  stage  heater  for  's  fully  on,  as  indicated  by  the 
odd  output  being  1 . There  are  two  cooling  stages  with  set  points  and  T54  above 
the  master  set  point,  and  these  coolers  are  fully  off  as  indicated  by  the  even  outputs 
being  0.  As  7}  warms  above  Ts^  for  case  2,  the  7-S1  heater  is  turned  off  (odd  output 
= 0),  and  Ts2  controls  proportionally.  Further  warming  above  Ts2  for  case  3,  places  Tj 
in  the  band  between  heating  (T^g)  and  cooling  (T^g).  As  mentioned  for  the  third 
criterion  in  the  previous  paragraph,  control  will  be  given  to  the  larger  of  the  control 
variables  for  these  two  stages  and  only  it  can  control  proportionally.  However,  when 
Tj  stays  between  these  two  set  points  on  consecutive  iterations,  either  heating  or 
cooling  devices  will  soon  be  turned  off,  as  shown  in  figure  20,  which  has  0 for  the 
odd  heating  stage  outputs  and  also  0 for  the  even  cooling  stage  outputs.  For  cases  4 
and  5,  7}  has  increased  to  be  above  the  cooling  set  points.  The  heater  stages  are  ful- 
ly off,  and  now  the  cooling  stages  control  proportionally— Tgg  for  case  4 and  for 
case  5. 

The  type  23  curtain  heat  exchanger  simulates  the  performance  of  a curtain  heat  ex- 
changer like  the  one  described  by  Simpkins  et  al.  {1978).  The  actual  heat  exchanger 
consists  of  a sheet  of  plastic  film  draped  over  a water  distribution  pipe.  Warm  or  cool 
water  oozes  out  of  holes  in  the  distribution  pipe  and  runs  down  the  inside  surfaces  of 
the  plastic.  The  outside  surfaces  exchange  energy  with  the  air  in  the  greenhouse  or 
other  space.  The  assumption  is  made  that  solar  radiation  absorption  is  negligible  and 
implies  that  the  exchanger  is  used  only  at  night  or  is  highly  reflective  if  used  during 
the  day.  The  energy  is  exchanged  physically  by  convection  of  sensible  and  latent 
heat  and  by  thermal  radiation  to  and  from  other  surfaces  in  the  greenhouse. 

However,  the  type  23  exchanger  merely  uses  an  overall  heat  transfer  coe.iicient  to 
compute  the  total  heat  transfer  rate  due  to  all  the  combined  heat  transfer 
mechanisms. 

The  equation  to  describe  the  rate  of  transfer  of  energy  from  the  space  to  the  ex- 
changer, 0 (W),  is 


Q = UA{T^i-TJ 


(23-1) 


where 


U 

A 

Tai 


overall  heat  transfer  coefficient  (W/m2  . ®C)  (parameter  2) 
heat  exchange  area  of  curtain  (m2)  (parameter  1) 
air  temperature  of  space  (®C)  (input  1) 
average  temperature  of  water  in  exchanger  (®C) 
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The  rate  at  which  the  water  is  absorbing  energy  can  also  be  determined  from  the 
rate  of  temperature  change  of  the  water: 


Type  24 
Passive  Storage 


0 - m^yC^y(T  T^j ) 


(23-2) 


where 


m,. 


'w 


' wo 


mass  flow  rate  of  the  water  (kg/s)  (input  5) 
specific  heat  of  water  (4,190  J/kg  *^0) 
inlet  water  temperature  (°C)  (input  4) 
outlet  water  temperature  (®C) 


Because  T^  = {Twi+T^oy2,  equations  23-1  and  23-2  can  be  combined  and 
rearranged  to  obtain  the  outlet  water  temperature: 

T -U«-''/2)  + ra, 

'wo~ 

R + M2  (23-3) 

where  R = {m^^)/{UA) 


The  other  types  of  heat  exchangers  are  of  the  forced  convection  type  with  a given  air 
mass  flow  rate;  and  the  greenhouse  models  have  been  written  to  accept  external 
fluxes  of  energy,  given  the  temperature,  mass  flow  rate,  and  humidity  ratio  of  the 
entering  air  mass.  Therefore,  to  make  the  type  23  curtain  heat  exchanger  compatible 
with  the  other  MEB  subroutine  models,  an  imaginary  outlet  air  flow  rate,  m^,  of  1 
kg/s  is  generated,  and  then  a corresponding  imaginary  outlet  air  temperature,  Tgo,  is 
computed  from 


7‘ao  = 7’a/-0/KCa)  (23-4) 

where  Cg  is  the  specific  heat  of  humid  air  taken  to  be  1,020  J/kg*®C.  Using  the 
and  rrig  computed  by  subroutine  CXR,  the  other  subroutine  models  have  enough  in- 
formation to  decode  the  rate  of  energy  exchange  between  the  greenhouse  air  and 
the  curtain  heat  exchanger. 

The  type  24  passive  storage  simulates  the  performance  of  a stack  of  water-filled  bot- 
tles or  other  sensible  heat  storage  material,  such  as  rocks.  The  thermal  conductivity, 
X,  of  the  material  must  be  large  enough  or  the  effective  radius,  R,  small  enough  that 
internal  temperature  gradients  are  insignificant.  This  criterion  is  met  if  the  Biot 
number  (hR/x)  is  less  than  0.1  (Duffie  and  Beckman  1974),  where  h is  the  heat 
transfer  coefficient  from  the  surroundings  to  the  material.  For  liquids  like  water, 
natural  convection  in  the  liquid  can  make  the  effective  value  of  the  thermal  conduc- 
tivity larger  than  the  handbook  thermal  conductivity  due  to  molecular  oscillations.  It  is 
assumed  that  the  type  24  passive  storage  does  not  absorb  solar  radiation  directly. 
Obviously,  more  energy  can  be  collected  and  stored  if  the  storage  material  is  ex- 
posed directly  to  the  sun.  However,  for  every  photon  of  visible  solar  radiation  entering 
a greenhouse  without  absorption  by  a green  leaf,  there  is  a consequent  reduction  in 
yield.  Therefore,  this  model  assumes  that  the  energy  is  exchanged  by  convection  of 
sensible  and  latent  heat  and  by  thermal  radiation  to  and  from  other  surfaces  in  the 
greenhouse.  The  model  uses  a constant,  overall  heat-transfer  coefficient  to  compute 
the  total  heat  transfer  rate  due  to  all  the  combined  heat  transfer  mechanisms. 


Ill 


The  equation  to  describe  the  rate  of  transfer  of  energy  from  the  bulk  air  to  the  ex- 
changer, Q (W),  is 


where 


U 

A 


'at 


Q^UA(Tu-T^  (24-1) 

overall  heat  transfer  coefficient  (lV/m2.»C)  (parameter  1) 
total  area  available  for  heat  exchanges  (m^)  (parameter  2) 
air  temperature  of  space  (^C)  (input  1) 
temperature  of  storage  material  (®C)  (dependent  variable  1) 


This  rate  must  equal  the  rate  of  energy  storage,  as  indicated  by  the  rate  of 
temperature  change  of  the  material: 


(24-2) 


where 

t 


total  mass  of  storage  material  (kg) 
specific  heat  of  storage  material  (J/kg>°C) 
time  (s) 


Combining  equations  24-1  and  24-2  and  rearranging,  the  rate  of  temperature  change 
of  the  material  is 


dt  (24-3) 

The  value  of  dT^dt  computed  from  equation  24-3  id  returned  to  the  main  program 
for  integration  with  the  internal  integrator  in  ME6. 

Most  of  the  external  devices  that  exchange  energy  with  the  greenhouse  air  in  the 
greenhouse  models  are  of  the  forced  confection  type,  vfith  a given  air  mass  flow 
rate.  To  make  the  type  24  passive  storage  compatible  with  these  greenhouse  models, 
and  imaginary  outlet  air  flow  rate,  of  1 kg/s  is  generated  by  subroutine  PSTOR; 
and  then  a corresponding  imaginary  outlet  air  temperature,  Tg„,  is  computed  using 

Tao^T^-Onm^c^)  (24-4) 

where  Cg  is  the  specific  heat  of  humid  air  taken  to  be  1,020  J/kg*°C.  Using  the  Tg^ 
and  /77g  computed  by  subroutine  PSTOR,  the  other  subroutine  models  have  enough 
information  to  decode  the  rate  of  energy  exchange  betweSn  the  greenhouse  air  and 
the  storage  material. 


Examples 


An  example  of  the  use  of  MEB  to  predict  the  fossil  energy  needed  for  a simple  con- 
ventional greenhouse  on  a winter  day  will  be  presented  in  this  section.  The 
greenhouse  system  is  illustrated  in  figure  2 and  includes  a type  15  simple 
greenhouse,  a type  22  multistage  thermostat,  and  a type  16  heater  for  the  essential 
mechanical  devices.  Also  included  are  a type  1 reader,  a type  13  reservoir,  a type  20 
arithmetic  calculator,  a type  2 integrator,  and  a type  3 printer  as  conceptual  devices 
to  facilitate  the  computations. 

Figures  21  through  24  illustrate  the  development  of  file  MEBDI  for  this  system.  As 
detailed  in  “Instructions  for  Use,”  the  first  line  of  the  file  in  figure  21  is  an 
alphanumeric  title  which  contains  no  commas.  The  next  two  lines  are  the  file  name 
and  device  code  where  the  input  will  be  read  and  the  output  will  be  written,  respec- 
tively. The  fourth  line  shows  that  the  simulation  is  to  start  with  data  from  1978, 

March,  7th  day,  at  0000  hours;  the  time  step  is  1 .0  hour;  the  total  number  of  times 
that  simulations  are  to  be  performed  is  25;  and  no  trace  is  to  be  printed,  as  indicated 
by  the  nontime  - 1 for  the  first  and  last  traces. 

The  total  number  of  units  is  eight  in  line  5,  with  unit  1 as  the  type  1 reader.  It  has  no 
parameters  (PAR),  inputs  (IN),  or  derivatives  that  require  initial  values  for  the  depend- 
ent variable  (7);  so  these  three  lines  are  omitted.  It  does  have  23  outputs  (OUT),  as 
listed  in  appendix  E,  and  these  must  be  initialized.  However,  because  the  reader  is 
unit  1 and  will  be  called  first,  these  initial  output  values  will  not  be  used  and  can  be 
initialized  to  anything,  such  as  the  1 ’s  in  figure  21 . 

Unit  2 is  the  type  13  reservoir,  which  also  has  no  inputs  or  derivatives.  This  reservoir 
is  to  be  used  for  supplying  a constant  value  of  0.0  to  some  of  the  inputs  of  the 
greenhouse  model;  so  its  single  output  is  initialized  to  0.0.  It  has  two  parameters,  the 
first  being  the  total  number  of  parameters  (2),  and  the  second  being  the  desired  out- 
put value  (0.0).  Because  the  type  13  reservoir  is  a device  which  has  a variable 
number  of  parameters,  the  first  one  must  be  separated  from  the  rest  with  a carriage 
return. 

Unit  3 is  the  type  15  simple  greenhouse,  which  has  so  many  parameters  that  a 
special  form  is  used,  as  illustrated  in  figure  22.  The  parameters  define  a small  con- 
ventional fiberglass  greenhouse  whose  test  values  are  listed  in  appendix  E.  The  first 
input  is  solar  radiation,  which  requires  the  expression  “1,  12”  to  connect  it  to  unit  1, 
the  type  1 reader,  whose  12th  output  is  solar  radiation.  Similar  connections  to  unit  1 
are  made  for  wind  speed,  U^q,  pressure,  outside  dry  bulb  air  temperature,  Tg^, 
and  wet  bulb  temperature,  T^ij.  For  this  example,  the  properties  of  the  greenhouse 
wall  will  not  change,  and  natural  ventilation  will  not  be  used;  so  both  7^  and  7/y  must 
be  fixed  at  zero.  This  can  easily  be  accomplished  by  connecting  them  to  unit  2,  out- 
put 1 , which  is  the  type  1 3 reservoir  that  was  made  to  have  0.0  for  an  output.  The 
type  15  greenhouse  has  its  own  powered  ventilation  system  which  should  be  turned 
on  if  the  temperature  rises  above  26.5 °C.  Therefore,  input  7,  7p,  is  connected  to  out- 
put 4 of  the  type  22  multistage  thermostat.  The  greenhouse  is  also  to  be  heated,  so 
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inputs  9 and  10  are  connected  to  outputs  1 and  2 of  the  type  16  heater.  The  heater 
is  the  only  external  device,  so  parameter  1 is  1,  and  the  total  number  of  inputs  is  10. 
Output  1,  from  the  greenhouse  inside-air  temperature,  is  initialized  to  15.5®C,  and  the 
other  outputs  are  initialized  to  1 ’s,  but  actually  none  of  the  outputs  are  used  by  a 
device  with  a smaller  unit  number  than  that  of  the  greenhouse  itself. 


MODULAR  ENERGY  BALANCE  MODEL  INPUT  DATA  (MEBDI) 

RUN  TITLE  ^ CoA/M^Af  T :POfJAL  0.xA/>^FLf  ^7/<0A<78^ 


WEATHER  FILE:  PZ57 
OUTPUT  FILE=  C 

STARTING  TIME  TIME  NO.  FIRST  LAST 

YR(2)  MON  DAY  HR(J  INCRE  TIMES  TRACE  TRACE 
^ . 7 . 0.0  ^ /•o  ^ ^5*  . * -/ 

NO.  UNITS  •• 


UNIT  \ I 2 3 4 5 6 7 8 9 10  II  12  13  14 


TYPE 

PAR 

* * A « • « • • A • « • • 

1 IN 

111  11111111  11 

OUT 

T 

TYPE 

/3  ^ SA 

PAR 

2 IN 

OUT 

^'O  • • f ••  • • ••  • • a a 

T 

TYPE 

>»••>«-  - See.  A^0.ctteA  ) 

PAR 

^ 1 1 111^  11  1111 

3 IN 

«««««««« 

OUT 

T 

TYPE 

, A^  ULjiS7A  6’R  THBA/t^oirAT 

PAR 

4 IN 

•%%%%%  ««««««««««««  ««««««««« 

OUT 

7 7 7 7 7 7 7 7 7 

T 

««  «a 

TYPE 

/b  y Hbaisa 

PAR 

^'^7  7 7 7 7 7 7 j 7 7 7 

5 IN 

1 1 % ^ 1 nf  % 4«  « « 44««  ««  ««  « ««  «««  • 

OUT 

^0  a 0-/3j  ^7777777  7777 

T 

«««• 

TYPE 

AO  \ AKJth  - foiifi.  Ba/PA6-^  Ui^E  AAre  cMJ/CS  /^s.^) 

FAR 

^ X ^ 0 ^ / , <3  , **/  ^ aa 

6 IN 

^ • y «y  «««««««««««««  ««  «a««««aaa 

OUT 

^ % 1 * % « 4 « « « « • « a a 

T 

TYPE 

X j ja/t£ 

PAR 

^ 7^y  7^7  7 7 7 7 7 7 7 7 7 7 

/ IN 

««  ««  «««•* 

OUT 

^111  111  1111111 

T 

» 9 > 9 9 9 9 9 9 9 9 9 9 

Figure  21. 

Completed  data  form  for  units  1 through  7 of  file  MEBDI 
for  simple  conventional  greenhouse  example. 
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TYPE  15  SIMPLE  GREENHOUSE  DATA 

UNIT  No.:  3 


PARAMETERS 


1 2 3 4 

j Ac  Ag  Vgj 

/ X7  73 

5 6 

\ bao 

a. S'  0.9.3 

7 

bso 

0-0  9 

8 9 

bg  1 bj 1 

0-^  9.0 

10  II 
Umqx  T) 

12 

^vg 

0.19 

13 

< 

's  0 
o.u 

14  15  16 

bo  0 ^10  1 

S.9  /.6  0.66 

IT  * 18  * ’ 

9 ? 1 

? 

1 7 

7 7 

7 } 

^0  1 ^11 

%.9  /-fe 

inputs 

1 2 

3 

4 

5 

6 

7 

8 

So  *^00 

Poo 

Tqo 

’p 

>'n 

1 IS.  17 

/ 9 

/ lo 

S.  i 

X 1 

9^^  lb”* 

I’l  ’ 

ik  ^ 

1^  ’ 

l^f 

\b  ’ 

ife  * 

Txi  Mxi 

Tx2 

Mx2 

Tx3 

Mx3 

Tx4 

Mx4 

S ! S' X 

initial  output'  guesses' 

} 1 

} 1 

) } 

1 2 3 4 

5 6 

Toi  Si  2Xj  C 

Vs  V 

1 i ! 

./  ■ / 

2 

THROUGH  6 

CAN  USUALLY 

BE  l*s 

Figure  22. 

Completed  data  form  for  the  type  15  simple  greenhouse 
in  the  simple  conventional  greenhouse  example. 


Unit  4 is  a type  22  multistage  thermostat  with  the  master,  heating,  and  cooling  set 
points  at  20,  15.5,  and  26.5°C.  This  is  also  a device  with  a variable  number  of 
parameters,  so  the  first  parameter— the  total  number  of  parameters  (4)— must  be  on 
a line  by  itself,  followed  by  a carriage  return.  The  initial  outputs  are  chosen  to  in- 
dicate a guess  that  at  the  initial  time,  which  is  midnight  on  a winter  night,  the  heater 
will  be  operating  at  0.5  capacity  and  the  power  ventilation  system  will  be  off.  Again, 
however,  no  device  in  this  system  that  has  a unit  smaller  than  that  of  the  thermostat 
itself  uses  these  outputs,  so  any  numbers  could  have  been  used  for  initialization. 

Unit  5 is  the  type  16  heater,  which  was  discussed  in  some  detail  in  “Instructions  for 
Use.”  The  only  additional  point  to  be  made  here  is  that  the  initial  values  of  outputs  1 
and  2 are  used  by  the  greenhouse  the  first  time  it  is  called.  Therefore,  the  initial 
values  of  these  two  outputs  should  be  reasonable,  as  indicated  by  the  estimate  of 
output  temperature  of  40°C  and  a flow  rate  at  half  capacity  of  0.13  kg/s. 

Unit  6 is  a type  20  arithmetic  calculator,  which  is  being  used  to  calculate  the  total 
fossil  energy  consumption  rate  of  the  system  and  convert  it  to  convenient  units.  The 
fossil  energy  consumers  in  this  system  are  the  heater  and  the  fan  in  the  ventilation 
system  of  the  greenhouse.  The  heater  is  rated  at  6850  W,  as  specified  in  parameter 
1 of  the  type  16  heater.  The  fan  is  sized  to  provide  a maximum  156  air  changes  per 
hour  (parameter  10  of  the  type  15  greenhouse),  which  is  3.16  m^/s  and  would  require 
a motor  of  about  1 ,200  W capacity.  The  fraction  of  the  time  that  the  heater  and  fan 
actually  operate  is  determined  by  their  respective  control  variables,  which  are  outputs 
1 and  4 from  unit  4,  the  multistage  thermostat.  Convenient  units  for  daily  energy 
totals  on  a unit  area  basis  are  megajoules  per  square  meter  (MJ/m^),  so  the  energy 
use  rate  must  be  divided  by  10®  to  convert  from  watts  (=J/s)  to  megajoules  per  sec- 
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MEB  MODEL  INPUT  DATA  - CONTINUED 


UNIT  I 2 3 4 5 6 7 8 9 10  II  12  13  14 


TYPE 

3 , 

PAR 

^ t T^TT  f?  J T t T tt 

ft  IN 

OUT 

T 

1111111  11  1 1 • 1 

TYPE 

« 

PAR 

44  4444444  44  44 

^ IN 

44  44  44  144444  4444444444  44444 

OUT 

44  44 

T 

it  I lift  9 S f f 00 

TYPE 

4 

PAR 

1 

444444  444  44  44 

10  IN 

4 44444  44444444  44444444  44444 

OUT 

tt  tt  tt 

T 

TYPE 

f 

PAR 

44  4444444  44  44 

II 

444444  444444444444444444444 

OUT 

T 

TYPE 

4 

PAR 

444444444  4444 

^ OUT 

Tfll 

T 

TYPE 

PAR 

If?  ffffff  ffff 

i:^  IN 

44  4444  4444  444444  44  44  444  4 444 

OUT 

99  999999999  99 

T 

fffTffffff?** 

TYPE 

f 

PAR 

9 99  999  9999999  99999  99  99  99999 

^ OUT 

999  *.99  99999  99 

T 

999999  999  99  99 

TYPE 

f 

PAR 

99  99  99999  999  9 

|R  IN 

99999999999999999999999  9999 

OUT 

T 

TYPE 

4 

PAR 

ffffffffi  ffff 

16 

9999999999999999  99  99999  99  99 

^ OUT 

999  999999  99  99 

T 

i a a a a a a a a a a a a a 

PR  1 NTER : b-  ^ ^b^^^b  b - ^ ^ b -■^-^b^^b'^  & b^--b---b  — ^b  b b-  - - 

LABELS:  b b b b b b b b b b b b b b — 


Figure  23. 

Completed  data  form  for  unit  8 of  file  MEBDI  for  simple 
conventional  greenhouse  example. 
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SIMPLE  CONVENTIONAL  GREENHOUSE  EXAMPLE  (7MAR78  DATA)  FILE  ISCGX 

P837 

6 

78,  3,  7,  0.0,  1,  25,  0,0 

8 

1,  READER  UNIT  1 

1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1,1 

13,  RESERVOIR  UNIT  2 

2 

0.0 

0.0 

15,  GREENHOUSE  UNIT  3 

1,  62,  27,  73,  0.5,  0.23,  0.08,  0.0,  9.0,  156,  0.75,  0.14,  0.66,  8.8/ 

1.6,  0.66,  8.8,  1.6 

1,  12,  1,7,  1,8,  1,9,  1,10,  2,1,  4,4,  2,1,  5,1,  5,2 
15.5,  1,1, 1,1,1 

22,  MULTISTATGE  THERMOSTAT  UNIT  4 

4 

20,  15.5,  26.5 

3.1 

0. 5,  0.5,  1,0 

16,  HEATER  UNIT  5 

6850,  0.26,  0.0 

3.1,  2,1,  2,1,  4,1 
40,  0.13,  0.0 

20,  ARITH  - COMPUTE  FOSSIL  ENERGY  USE  RATE  (MJ/(S  M2))  UNIT  6 

14 

2,  0,  -1,  6850,  1,  0,  -1,  1200,  1,  3,  -1,  27. E6,  2 

4.1,  4,4 

0,1 

2,  INTEGRATOR  UNIT  7 

1,  24,  7 

6.1 

0 

3,  PRINTER  UNIT  8 

12,  1,  80,  8 

1.1,  1,2,  1,3,  1,4,  1,12,  1,9,  1,10,  3,1,  4,1,  4,4,  6,1,  7,1 
YR  MON  DAY  HR  SO  TAO  TWB  TAI  G15  G26  Q AQ 


Figure  24. 

Listing  of  file  MEBDI  for  the  simple  conventional 
greenhouse  example. 


ond  (MJ/s)  and  divided  also  by  27  the  area  of  the  greenhouse,  to  obtain  the  unit 
area  basis.  Using  the  notation  <a,b>  to  indicate  output  b from  unit  a,  the  total  fossil 
energy  use  rate,  0 (MJ/m^.s),  is 

0 = (6,850.  * < 4,1  > + 1 ,200*  < 4,4  > )/27.E6 

Referring  to  unit  6 in  figure  21 , 0 is  evaluated  by  the  type  20  arithmetic  calculator  as 
follows:  First,  parameter  1 is  the  total  number  of  parameters  (14)  and  is  followed  by  a 
carriage  return  because  this  is  a device  with  a variable  number  of  parameters.  Then, 
parameter  2 indicates  there  will  be  two  inputs  (the  <4,1  > and  <4,4>).  Next,  a 0 


for  parameter  3 places  the  value  of  input  1 on  the  stack;  a - 1 for  parameter  4 puts 
the  next  parameter  (6,850)  on  the  stack;  and  a 1 for  parameter  6 multiplies 
6,850*  <4,1  >.  Parameters  7 through  10  do  the  same  for  the  fan.  Finally,  the  3 for 
parameter  1 1 adds  the  rates  for  the  heater  and  fan  together,  and  then  the  - 1 , 

27.E6,  and  2 for  parameters  12,  13,  and  14  convert  from  watts  to  the  desired  units 
(MJ/s»m2). 

Unit  7 is  the  type  2 integrator.  Parameter  1 shows  that  it  has  a single  input,  <6,1  >; 
parameter  2 shows  that  it  will  reset  to  zero  after  24  hours;  and  parameter  3 is  its  unit 
number  (7).  The  integrator  multiplies  the  input,  which  is  in  megajoules  per  square 
meter  second,  by  the  length  of  the  time  step  (in  seconds)  and  accumulates  the  prod- 
ucts as  the  simulation  proceeds  hour  by  hour.  Thus,  the  output  is  the  accumulated 
fossil  energy  use  in  megajoules  per  square  meter. 

Unit  8 is  the  type  3 printer,  and  the  parameters  in  figure  23  indicate  that  there  will  be 
12  inputs;  the  time  between  printouts  is  1 hour,  80  characters  per  line  is  printer 
width;  and  the  unit  number  is  8.  Of  particular  note  in  figure  23  is  the  correspondence 
between  the  inputs  and  the  print  labels  at  the  bottom  of  the  form.  Each  input  is 
assigned  a label  up  to  three  characters  long  that  will  be  printed  beside  the  cor- 
responding value  on  the  paper  from  the  printer.  The  meanings  of  the  labels  are  eas- 
ily forgotten  because  of  the  three-character  limit.  Also,  the  same  labels  may  be  used 
with  different  meanings  in  other  systems  or  files.  Therefore,  it  is  advisable  to  make  a 
table  such  as  table  2 for  each  system  that  is  simulated. 


Table  2. — Detailed  explanation  of  printer  labels  for  the  simple  conventional 
greenhouse  example 


Printer 

input 

No. 

Label 

Item 

Unit 

No. 

From— 

Output 

No. 

1 

YR 

year 

1 

1 

2 

MON 

month 

1 

2 

3 

DAY 

day 

1 

3 

4 

HR 

hour 

1 

4 

5 

SO 

outside  solar  radiation  (W/m^) 

1 

12 

6 

TAO 

outside  air  temperature  (°C) 

1 

9 

7 

TWB 

outside  wet  bulb  temperature  (®C) 

1 

10 

8 

TAI 

inside  greenhouse  temperature  (°C) 

3 

1 

9 

G15 

control  variable  @ 15.5°C 

4 

1 

10 

G26 

control  variable  @ 26.5®C 

4 

4 

11 

Q 

fossil  energy  use  rate  (MJ/s^m^) 

6 

1 

12 

AQ 

accumulated  fossil  energy  used  (MJ/m^ 
since  integrator  last  reset) 

7 

1 
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Figure  24  shows  a listing  of  file  MEBDI  as  typed  into  the  computer  from  the  forms  in 
figures  21  through  23.  Figure  25  shows  a sample  of  weather  data  from  7 March  1978 
for  use  with  this  example.  This  simple  example  requires  only  the  year,  month,  day, 
hour,  wind  speed,  pressure,  dry  bulb  temperature,  wet  bulb  temperature,  and  total 
solar  radiation  on  a horizontal  surface;  so  dummy  values  could  have  been  used  for 
all  of  the  other  variables.  If  a system  that  requires  only  a portion  of  these  weather 
variables  is  to  be  simulated,  the  user  may  wish  to  modify  the  type  1 reader  or  write  a 
new  reader  subroutine  in  order  to  trim  the  excess  baggage  caused  by  the  extra 
variables. 

Figure  26  is  a sample  of  the  printout  for  the  simple  conventional  greenhouse  exam- 
ple. The  first  portion  is  a printout  of  the  information  from  the  MEBDI  file.  The  user 
should  check  such  a printout  carefully  for  any  mistakes  in  parameters  or  in  input  con- 
nections. Mistakes  sometimes  appear  here  in  the  form  of  I/O  errors  or  in  misinter- 
pretation of  kinds  of  devices  because  the  user  did  not  supply  the  proper  number  of 
parameters,  inputs,  initial  outputs,  or  initial  T values;  or  commas  and  decimal  points 
may  be  interchanged.  The  rest  of  the  printout  is  the  hour-by-hour  listing  of  the  green- 
house temperature,  energy  use,  and  the  other  information  specified  in  figure  23  and 
table  2.  The  hourly  energy  use  and  the  outside  solar  radiation  are  plotted  in  figure 
27. 
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Figure  26. 

Sample  printout  for  the  simple  conventional  greenhouse 
example. 


MODULAR  ENERGY  BALANCE  SIMULATION 


SIMPLE  CONVENTIONAL  GREENHOUSE  EXAMPLE  (7MAR78  DATA)  FILE  ISCGX 
RUN  AT  10:09  AM  TUE.,  30  NOV.,  1982 
WEATHER  DATA  FROM  FILE  P837 

STARTING  YR=78.  MN=  3.  DY=  7.  HR=  0.00 


INCREMENT  = 
NO.  TIMES  = 
FIRST  TRACE= 
LAST  TRACE= 
NO.  UNITS  = 


1.00  HOURS 
25 

-1.00  HOURS 
-1.00  HOURS 
8 


UNIT  1 IS  A TYPE  1 READER 
PARAMETERS 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

INITIAL  OUTPUTS 

1 .lOOOE+01  2 .lOOOE+01  3 .lOOOE+Ol  4 .lOOOE+Ol  5 .lOOOE+01  6 

7 .lOOOE+01  8 .lOOOE+01  9 .lOOOE+01  10  .lOOOE+01  11  .lOOOE+01  12 

13  .lOOOE+01  14  .lOOOE+01  15  .lOOOE+Ol  16  .lOOOE+01  17  .lOOOE+01  18 

19  .lOOOE+01  20  .lOOOE+01  21  .lOOOE+01  22  .lOOOE+01  23  .lOOOE+01 

INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  2 IS  A TYPE  13  RESERVOIR 
PARAMETERS 

1 .2000E-K)1  2 .OOOOE+OO 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

INITIAL  OUTPUTS 
1 .OOOOE+OO 

INITIAL  VALUES  OF  DEPENDENT  VARIABLES 


UNIT  3 IS  A TYPE  15  SIMPLE  GREENHOUSE 
PARAMETERS 


1 .lOOOE+01  2 .6200E+02 

3 

.2700E+02 

4 

.7300E+02 

5 .5000E+00 

6 

7 .8000E-01  8 .OOOOE+OO 

9 

.9000E+01 

10 

.1560E+03 

11  .7500E+00 

12 

13  .6600E+00  14  .8800E+01 

15 

.1600E+01 

16 

.6600E+00 

17  .8800E+01 

18 

INPUTS  (INPUT  NO.,  UNIT  NO. 

, ' 

OUTPUT  NO.) 

1 1 12  2 17 

3 18 

4 19 

5 1 10 

7 4 4 8 2 1 

9 5 1 

10  5 2 

INITIAL  OUTPUTS 

1 .1550E+02  2 .lOOOE-'-Ol 

3 

.lOOOE+Ol 

4 

.lOOOE+01 

5 .lOOOE+01 

6 

INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  4 IS  A TYPE  22  MULTISTAGE  THERMOSTAT 
PARAMETERS 

1 .4000E+01  2 .2000E+02  3 .1550E+02  4 .2650E+02 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

13  1 

INITIAL  OUTPUTS 

1 .5000E+00  2 .5000E+00  3 .lOOOE+01  4 .OOOOE+OO 

INITIAL  VALUES  OF  DEPENDENT  VARIABLES 


.lOOOE+Ol 

.lOOOE+01 

.lOOOE+Ol 


.2300E+00 

.1400E+00 

.1600E+01 

6 2 1 


.lOOOE+01 
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1 


' UNIT  5 IS  A TYPE  16  HEATER 
PARAMETERS 

1 .6850E+04  2 .2600E+00  3 .OOOOE+OO 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

13,1  221  321  441 

INITIAL  OUTPUTS 

1 .4000E-K)2  2 .1300E+00  3 .OOOOE+OO 

INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  6 IS  A TYPE  20  ARITHMETIC  CALCULATOR 
I PARAMETERS 

1 .1400E+02  2 .2000E+01  3 .OOOOE+OO  4-.1000E+01  5 .6850E+04  6 .lOOOE+01 
7 .OOOOE+OO  8-.1000E+01  9 .1200E+04  10  .lOOOE+01  11  .3000E+01  12-.1000E+01 
13  .2700E+08  14  .2000E+01 
INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

14  1 2 4 4 

INITIAL  OUTPUTS 

1 .OOOOE+OO  2 .lOOOE+01 
INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  7 IS  A TYPE  2 INTEGRATOR 
PARAMETERS 

1 .lOOOE+01  2 .2400E+02  3 .7000E+01 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

16  1 
INITIAL  OUTPUTS 
1 .OOOOE+OO 

INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  8 IS  A TYPE  3 PRINTER 
PARAMETERS 


1 .1200E+02  2 .lOOOE+01  3 .8000E+02  4 .8000E+01 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 


111 

2 

12  3 

1 3 

4 1 

4 

5 1 12 

6 19 

7 1 10 

8 

3 1 9 

4 1 

10  4 

4 

11  6 1 

12  7 1 

INITIAL  OUTPUTS 

INITIAL  VALUES  OF 

DEPENDENT  VARIABLES 

YR 

MON  DAY  HR 

SO  TAO  TWB  TAI  ( 

G15  G26  Q AQ 

TIME 

= 0.00 

YR 

.780000E+02 

MON 

.300000E+01 

DAY 

.700000E+01 

HR 

.OOOOOOE+00 

SO  .00000 

TAO 

.129000E+02 

TWB 

.115000E+02 

TAI 

.154280E+02 

G15 

.301498E+00 

G26  .00000 

Q 

.764913E-04 

AQ 

.OOOOOOE+00 

TIME 

= 1.00 

YR 

.780000E+02 

MON 

.300000E+01 

DAY 

.700000E+01 

HR 

.lOOOOOE+Ol 

SO  .00000 

TAO 

.126000E+02 

TWB 

.114000E+02 

TAI 

.159375E+02 

G15 

.418436E+00 

G26  .00000 

Q 

.106159E-03 

AQ 

.328770E+00 

TIME 

= 2.00 

YR 

.780000E+02 

MON 

.300000E+01 

DAY 

.700000E+01 

HR 

.200000E+01 

SO  .00000 

TAO 

.122000E+02 

TWB 

.lllOOOE+02 

TAI 

.155343E+02 

G15 

.454499E+00 

G26  .00000 

Q 

.115459E-03 

AQ 

.727683E+00 

TIME 

= 3.00 

YR 

.780000E+02 

MON 

.300000E+01 

DAY 

.700000E+01 

HR 

.300000E+01 

SO  .00000 

TAO 

.116000E+02 

TWB 

.106000E+02 

TAI 

.159702E+02 

G15 

.591736E+00 

G26  .00000 

Q 

.150126E-03 

AQ 

.120574E+01 
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TIME 

= 4.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .400000E+01 

SO  .00000 

TAO 

.llOOOOE+02 

TWB  .990000E+01 

TAI  .153564E+02 

G15  .595461E+00 

G26  .00000 

Q 

.151071E-03 

AQ  .174789E+01 

TIME 

= 5.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .500000E+01 

SO  .00000 

TAO 

.106000E+02 

TWB  .940000E+01 

TAI  .156115E+02 

G15  .671604E+00 

G26  .00000 

Q 

.170388E-03 

AQ  .232651E+01 

TIME 

= 6.00 

YR 

.780000E-K)2 

MON  .300000E+01 

DAY  .700000E+01 

HR  .600000E+01 

SO  .00000 

TAO 

.104000E+02 

TWB  .920000E+01 

TAI  .155273E+02 

G15  .663457E+00 

G26  .00000 

Q 

.168322E-03 

AQ  . 29361 9E+01 

TIME 

= 7.00 

YR 

.7800008+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .700000E+01 

SO  .50000 

TAO 

.104000E+02 

TWB  .910000E+01 

TAI  .153053E+02 

G15  .594690E+00 

G26  .00000 

Q 

.149911E-03 

AQ  .350901E+01 

TIME 

= 8.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .800000E+01 

SO  .21800 

TAO 

.lllOOOE+02 

TWB  .940000E+01 

TAI  .156075E+02 

G15  .528907E-01 

G26  .00000 

Q 

.134186E-04 

AQ  .380301E+01 

TIME 

= 9.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .900000E+01 

SO  .44900 

TAO 

.128000E+02 

TWB  .104000E+02 

TAI  .212402E+02 

G15  .OOOOOOE+00 

G26  .00000 

Q 

.OOOOOOE+00 

AQ  .382716E+01 

TIME 

= 10.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .lOOOOOE+02 

SO  .64100 

TAO 

.152000E+02 

TWB  .117000E+02 

TAI  .265007E+02 

G15  .OOOOOOE+00 

G26  .84379 

Q 

.375022E-06 

AQ  .382783E+01 

TIME 

= 11.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .llOOOOE+02 

SO  .77800 

TAO 

.172000E+02 

TWB  .128000E+02 

TAI  .265001E+02 

G15  .OOOOOOE+00 

G26  .46719 

Q 

.207641E-05 

AQ  .383225E+01 

TIME 

= 12.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .120000E+02 

SO  .84900 

TAO 

.188000E+02 

TWB  .134000E+02 

TAI  .265050E+02 

G15  .OOOOOOE+00 

G26  .74737 

Q 

.332166E-05 

AQ  .384196E+01 

TIME 

= 13.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .130000E+02 

SO  .85100 

TAO 

.201000E+02 

TWB  .137000E+02 

TAI  .265000E+02 

G15  .OOOOOOE+00 

G26  .89049 

Q 

.395777E-05 

AQ  .385507E+01 

TIME 

= 14.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .140000E+02 

SO  .78300 

TAO 

.211000E+02 

TWB  .139000E+02 

TAI  .265003E+02 

G15  .OOOOOOE+00 

G26  .88013 

Q 

.391169E-05 

AQ  .386923E+01 

TIME 

= 15.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .150000E+02 

SO  .65000 

TAO 

.221000E+02 

TWB  .141000E+02 

TAI  .265374E+02 

G15  .OOOOOOE+00 

G26  .74490 

Q 

.331069E-05 

AQ  .388223E+01 

TIME 

= 16.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .160000E+02 

SO  .46100 

TAO 

.228000E+02 

TWB  .141000E+02 

TAI  .265052E+02 

G15  .OOOOOOE+00 

G26  .44261 

Q 

.196718E-05 

AQ  .389173E+01 

TIME 

= 17.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .170000E+02 

SO  .23200 
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TAO  .228000E+02 

TWB  .139000E+02 

TAI 

Q .OOOOOOE+00 

AQ  .389527E+01 

TIME  = 18.00 

YR  .7800008+02 

MON  .300000E+01 

DAY 

TAO  .215000E+02 

TWB  .131000E+02 

TAI 

Q .OOOOOOE+00 

AQ  .389527E+01 

TIME  = 19.00 

YR  .780000E+02 

MON  .300000E+01 

DAY 

TAO  .193000E+02 

TWB  .119000E+02 

TAI 

Q .OOOOOOE+00 

AQ  .389527E+01 

TIME  = 20.00 

YR  .780000E+02 

MON  .300000E+01 

DAY 

TAO  .178000E+02 

TWB  .lllOOOE+02 

TAI 

Q .OOOOOOE+00 

AQ  .389527E+01 

TIME  = 21.00 

YR  .780000E+02 

MON  .300000E+01 

DAY 

TAO  .174000E+02 

TWB  .lllOOOE+02 

TAI 

Q .OOOOOOE+00 

AQ  .389527E+01 

TIME  = 22.00 

YR  .780000E+02 

MON  .300000E+01 

DAY 

TAO  .176000E+02 

TWB  .115000E+02 

TAI 

Q .OOOOOOE+00 

AQ  .389527E+01 

TIME  = 23.00 

YR  .780000E+02 

MON  .300000E+01 

DAY 

TAO  .172000E+02 

TWB  .117000E+02 

TAI 

Q .OOOOOOE+00 

AQ  .389527E+01 

TIME  = 24.00 

YR  .780000E+02 

MON  .300000E+01 

DAY 

TAO  .158000E+02 

TWB  .114000E+02 

TAI 

Q .OOOOOOE+00 

AQ  .389527E+01 

260551E+02 

G15  .OOOOOOE+00 

G26  .00000 

700000E+01 

214884E+02 

HR  .180000E+02 
G15  .OOOOOOE+00 

SO  .10000 
G26  .00000 

700000E+01 

191559E-K)2 

HR  .190000E+02 
G15  .OOOOOOE+00 

SO  .00000 
G26  .00000 

700000E+01 

176747E+02 

HR  .200000E+02 
G15  .OOOOOOE+00 

SO  .00000 
G26  .00000 

700000E+01 

172824E+02 

HR  .210000E+02 
G15  .OOOOOOE+00 

SO  .00000 
G26  .00000 

700000E+01 

174840E+02 

HR  .220000E+02 
G15  .OOOOOOE+00 

SO  .00000 
G26  .00000 

700000E+01 

170934E+02 

HR  .230000E+02 
G15  .OOOOOOE+00 

SO  .00000 
G26  .00000 

800000E+01 

157132E+02 

HR  .OOOOOOE+00 
G15  .OOOOOOE+00 

SO  .00000 
G26  .00000 
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•gy  use  rate  versus  time  of  day  for 
greenhouse  example.  Also,  the  solar 
jtdoors  on  a horizontal  surface. 


Solar  Greenhouse  Figure  28  illustrates  a solar  greenhouse  system  that  utilizes  a tank  of  water  in  which 

System  stot;e  energy  for  use  at  night.  The  system  includes  a direct-contact  water-to-air  heat 

exchanger  for  adding  heat  to  the  greenhouse  at  night  and  for  removing  excess  heat 
from  the  greenhouse  during  the  day.  The  removal  of  excess  heat  during  the  day 
cools  the  greenhouse  while  allowing  the  greenhouse  to  be  unventilated  and  enriched 
with  CO2  for  more  sunlit  hours  than  in  a conventional  greenhouse.  The  greenhouse 
is  also  equipped  with  dampers  so  that  outside  air  can  be  drawn  into  the  greenhouse 
through  the  heat  exchanger  (making  it  an  evaporative  cooler)  if  necessary  in  hot, 
humid  weather.  Figure  28  also  shows  a cooling  tower  for  dumping  excess  energy  in 
summer.  This  example  is  included  to  illustrate  the  versatility  and  power  of  MEB  to 
handle  a large  system  with  several  devices  and  complicated  control  logic. 

Figure  29  shows  an  information  flow  diagram  for  the  solar  greenhouse  system  in 
figure  28,  and  figures  30  through  36  show  the  corresponding  MEBDI  file  for  defining 
and  connecting  the  system.  Referring  to  figure  30,  the  first  lines  and  the  first  two 
units  are  essentially  the  same  as  for  the  previous  (simple  greenhouse)  example,  ex- 
cept that  the  type  13  reservoir  additionally  supplies  values  of  1.0  and  0.3  for  the 
height  and  width  of  the  vegetation  rows  to  the  type  14  greenhouse. 

Unit  3 is  a calendar  (type  12  time  function)  which  is  included  in  the  system  to  allow 
summer  and  winter  modes  of  operation.  In  winter,  solar  energy  collection  from  the 
greenhouse  is  to  start  at  a lower  temperature  (24°C),  and  the  cooling  tower  is 
“manually”  turned  completely  off.  In  summer,  solar  energy  collection  (cooling)  starts 
at  a higher  temperature  (26.5°C),  and  the  cooling  tower  is  set  to  operate  whenever 
the  temperature  of  the  water  in  the  tank  exceeds  the  outside  wet  bulb  temperature 
by  more  than  2°C.  For  this  example,  however,  the  simulation  is  done  for  only  a 
single  winter  day  (7  March  1978).  The  parameters  for  the  calendar  are  chosen  so 
that  the  output  from  this  unit  is  zero,  to  signal  winter  mode  to  the  other  devices. 


provides  auxiliary  heating,  and  a cooling  tower  provides 
additional  cooling. 
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Unit  4 is  a type  14  complicated  greenhouse,  whose  characteristics  are  coded  on  the 
form  in  figure  31 . The  parameters  are  chosen  to  define  a small  fiberglass  greenhouse 
(appendix  E and  table  1)  similar  in  construction  to  the  one  used  for  the  previous 
example.  The  greenhouse  is  connected  to  two  external  devices  that  can  add  energy 
to  the  greenhouse  air:  the  type  1 6 heater  (unit  9)  and  the  type  1 3 heat  exchanger 
(unit  13).  The  type  14  complicated  greenhouse  uses  conduction  transfer  functions  to 
predict  soil  heat  flux,  and  these  functions  must  be  supplied  in  file  MEBDI  immediately 
following  the  initial  values  for  the  greenhouse.  The  functions  for  this  example  are 
coded  on  the  form  in  figure  32,  and  they  define  a 30-cm-thick  slab  of  moist  sand 
over  a dry  loam  (appendix  E,  Kimball  1983). 
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Figure  29. 

Information  flow  diagram  for  the  greenhouse  of  figure  28 
with  a solar  energy  storage  water  tank,  auxiliary  heater, 
and  cooling  tower. 
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Unit  5 in  figure  29  and  30  is  a type  22  multistage  thermostat.  The  five  set  points  are 
13°,  15.5°,  24°,  26.5°,  and  29.5°C  for  auxiliary  heat,  solar  heating,  solar  collection  in 
winter,  solar  collection  in  summer,  and  ventilation,  respectively. 

Units  6 and  7 illustrate  the  use  of  the  type  20  arithmetic  calculator  to  perform  logic 
functions.  Unit  6 selects  the  control  variable  corresponding  to  the  24°C  set  point  in 
winter  and  the  26.5°C  set  point  in  summer.  Unit  7 provides  the  control  variable  for 
the  heat  exchanger  pump  and  fan  and  turns  them  on  when  the  greenhouse  tempera- 
ture is  below  the  15.5°C  thermostat  set  point  or  above  the  solar  collection  set  point 
(24°C  in  winter  or  26.5°C  in  summer,  as  chosen  by  unit  6). 

Unit  8 modifies  the  29.5 °C  ventilation  control  variable  in  a manner  that  forces  the 
type  7 tee  (unit  10)  to  simulate  the  action  of  the  dampers  of  the  actual  test  green- 
house at  the  USWCL.  When  the  dampers  open  on  the  actual  greenhouse,  the  fan  no 
longer  just  recirculates  greenhouse  air  but  pulls  in  outside  air.  The  proportion  of  out- 
side air  was  measured  to  be  0.4  when  the  dampers  were  fully  open;  so  unit  8 
multiplies  the  29.5°C  control  variable  from  the  thermostat  by  0.4  so  that  the  unit  10 
mixer  will  mix  0.4  outside  air  with  0.6  greenhouse  air  when  the  greenhouse  air 
temperature  exceeds  29.5°C. 

Unit  9 is  the  auxiliary  fossil  fuel  heater  similar  to  the  one  that  was  the  only  heater  in 
the  previous  example.  Units  11,  12,  and  13  comprise  the  solar  heating  and  collection 
devices  for  transferring  heat  from  the  water  tank  to  the  greenhouse  when  the  green- 
house temperature  is  below  15.5°C  and  for  transferring  solar  energy  from  the  green- 
house to  the  tank  when  the  greenhouse  temperature  exceeds  24°C  in  winter  or 
26.5°C  in  summer.  The  parameters  for  the  type  9 heat  exchanger  define  a direct- 
contact,  counterflow  exchanger  with  excelsior  pad  media  (appendix  E,  Kimball  et  al. 
1977). 

Units  14,  15,  and  16  are  the  pump,  fan,  and  cooling  tower.  The  parameters  for  the 
cooling  tower  actually  define  it  as  a direct-contact,  counterflow  heat  exchanger  like 
the  one  inside  the  greenhouse,  except  that  the  cooling  tower  uses  dry  outside  air  for 
evaporative  cooling  whereas  humid  greenhouse  air  is  recirculated  through  the  inside 
heat  exchanger.  The  pump  and  fan  are  controlled  by  unit  19,  which  is  a type  20 
arithmetic  calculator  used  to  combine  the  signals  from  a type  4 differential  thermostat 
(unit  18)  and  the  calendar  (unit  3).  The  water  tank  temperature  must  exceed  the  out- 
side dry  bulb  temperature  by  more  than  2°C  and  the  calendar  must  indicate  summer 
mode  before  the  pump  and  fan  are  turned  on. 

The  main  component  of  the  solar  energy  system  in  figure  28  is  the  solar  energy 
storage  water  tank,  which  is  unit  1 7 in  figures  29  and  34.  The  tank  is  a very  large 
cylinder,  1 .5  m high  by  7.32  m in  diameter,  with  a capacity  of  63  m^,  and  it  provides 
2.3  m3  of  water  per  square  meter  of  greenhouse.  Thermal  stratification  is  ignored, 
and  the  tank  is  assumed  to  be  well  mixed,  so  there  is  only  one  layer.  This  device  is 
the  only  one  in  the  whole  system  which  has  a differential  equation.  In  this  case,  the 
dependent  variable  is  the  tank  water  temperature;  and  based  on  previous  operating 
experience  and  simulation  runs,  it  is  set  at  18.5°C. 

Units  20  through  24  in  figures  29  and  34  are  type  20  arithmetic  calculators  for  calcu- 
lating some  performance  information  from  the  system  that  involves  manipulating  the 
outputs  from  several  devices.  Again,  the  notation  <a,b>  will  mean  the  value  of  out- 
put b from  unit  a.  The  constants  used  include  2.45E6  J/kg  for  converting  latent 
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energy  to  mass,  (1/27  m^)  (i  m^/io^  kg)  (10^  mm/m)  = 1 mm/27  kg  for  converting 
kilograms  per  second  for  whole  greenhouse  to  millimeters  per  second,  and  1/27E6  for 
converting  joules  per  second  for  whole  greenhouse  to  megajoules  per  square  meter 
per  second. 

Unit  20  computes  the  total  water  loss  rate  from  the  system,  E,  (mm/s).  Ignoring  leaks, 
the  possible  avenues  of  water  loss  are  infiltration,  natural  ventilation,  and  fan  ventila- 
tion from  the  greenhouse  and  evaporation  from  the  cooling  tower.  Outputs  29  and  31 
(<4,29>  + <4,31  >)  from  the  greenhouse  are  the  latent  energy  loss  due  to  infil- 
tration and  natural  ventilation,  and  output  7 (<16,7>)  is  the  evaporation  rate  from 
the  cooling  tower.  The  rate  of  water  loss  from  fan  ventilation  is  the  mass  flow  rate  of 
the  fan  (kg/s)  (<11,2>)  times  the  fraction  of  outside  air  drawn  in  (<8,1  >)  times  the 
difference  in  humidity  ratio  between  the  inside  and  outside  air  (<4,7>  - <1,6>). 
Thus, 


E = [( < 4,29  > -K  4,31  > )/2.45E6  -t-  < 1 6,7  > 
-k11,2>*<8,1>*(<4,7>  - <1,6>)]/27. 

Unit  21  computes  the  total  fossil-energy-use  rate,  0 (MJ/s).  The  consumers  of  fossil 
energy  in  the  system  include  the  auxiliary  heater,  the  fan  and  pump  for  the  heat  ex- 
changer, and  the  fan  and  pump  for  the  cooling  tower.  The  energy  use  rates  are  the 
maximum  capacities  times  their  respective  control  variables.  The  heater  capacity  is 
6,850  W,  and  the  capacity  of  the  fan  plus  pump  for  both  heat  exchanger  and  cooling 
tower  is  taken  to  be  1 ,800  W.  Thus, 

O = [6,860*<5,1>  +1,800*  <7,1  > -t- 1,800*  <19,1  >]/27.E6 

Units  22  and  23  compute  the  rates  of  solar  energy  collection,  S+,  and  solar  energy 
use,  S“  (MJ/s).  The  collection  rate  is  defined  as  the  rate  of  energy  transfer  from  the 
greenhouse  air  to  the  water,  and  the  use  rate  is  defined  as  rate  from  water  to  air. 
Therefore,  the  use  rate  consists  of  positive  values  from  output  6 of  the  heat  ex- 
changer, and  the  collection  rate  consists  of  - 1 times  the  negative  values  of  this 
same  output. 

Unit  24  computes  the  amount  of  solar  radiation,  S^,  that  is  received  outside  while  the 
greenhouse  is  closed  or  unventilated  and  therefore  could  be  enriched  with  CO2.  The 
fraction  of  time  the  greenhouse  is  unventilated  is  1 minus  the  control  variable  for 
ventilation,  <5,10>,  and  1 - <5,10>  = <5,9>;  therefore, 

S‘'  = (<1,12>*<5,9>)/1.E6 

Units  25  and  26  in  figures  29  and  35  illustrate  the  use  of  type  2 integrators  with  dif- 
ferent reset  times.  Both  integrate  the  water  and  energy  use  variables;  but  unit  25 
resets  every  24  hours,  whereas  unit  26  continues  to  accumulate  for  a year. 

Units  27  and  28  illustrate  the  use  of  type  3 printers  with  different  printout  times.  Unit 
27  prints  out  each  hour,  whereas  unit  28  prints  integrated  values  only  at  the  end  of 
each  day.  Table  3 explains  the  items  and  labels  printed  by  both  of  the  type  3 
printers. 
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MODULAR  ENERGY  BALANCE  MODEL  INPUT  DATA  (MEBDI) 
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Figure  30. 

Completed  data  form  for  units  1 through  7 of  file  MEBDI 
for  solar  greenhouse  system  example. 
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TYPE  14  COMPLICATED  GREENHOUSE  DATA j 
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Continue  on  form  for  surface  layer  soil  heat  conduction  transfer  functions 


Figure  31. 

Completed  data  form  for  type  14  complicated  greenhouse 
of  file  MEBDI  for  solar  greenhouse  system  example. 
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TYPE  14  COMPLICATED  GREENHOUSE  DATA -Continued 


Soli  Heat  Conduction  Transfer  Functions  and  Temperature  History 
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Figure  32. 

Completed  data  form  with  soil  conduction  transfer  func- 
tions for  type  14  complicated  greenhouse  of  file  MEBDI 
for  solar  greenhouse  system  example. 


MEB  MODEL  INPUT  DATA  - CONTINUED 


UNIT  I 2 3 4 5 6 7 8 9 10  II  12  13  14 
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''7  777777  77  77 

TYPE 

? J tLOoLXA/6-  TowB/t  c £X  C-£L$Toi^  PAPS') 

PAR 

1 , -/  ,Y.6  j0.oSi.f9l9o.f  37  ,/.Y6,o./o,6ro£w^  o.y^o.SSy  o , , 

I6  'N 

^3*7  ^ 7^'^7  ‘^7^^7'^  7^7^  7 ^^7^7^7^7^^7Y  7^7^7  7 7 7 7 7 7 7 7 7 7 7 

^ OUT 

/6,0^0^/4f0^0f0^  7 7 7 7 7 7 

T 

PRINTER;  b b b b b— b b b b b b b b b— 

LABELS:  b b b b b b b b b b b b b b — 


Figure  33. 

Completed  data  form  for  units  8 through  16  of  file  MEBDI 
for  solar  greenhouse  system  example. 
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MEB  MODEL  INPUT  DATA  - CONTINUED 


2 3 4 5 6 7 8 9 10  II  12  13  14 


TYPE 

II  J \fJATS^  TAMK  i is  Aft  A 7.  34  A1  DJA.) 

PAR 

1 , t.S  ^tftfo^/ooo^  Oj/j/  J o J O ^ j 

1 / IN 

^3  .V  • /3*.^  1 tt  tt  ttl  T Tt  f 

OUT 

/9.S  1.9  o . o 0 o . o , , , , , , 

T 

TYPE 

V 1 OiFffiAEffriAL  fusA  AiosTAr  Co^’TAut  a oa/  jf  TTk^TwO  >Ay 

1 o par 

J.  19  A. 

^ ^ 1 % t t 1 1 ? 

1 0 IN 

7 a 3 a / *1^^  ««  ««««4a4aaa  aaaaa 

OUT 

^ 1 1 11  1 1 1 1 

T 

TYPE 

J AKff'H  JOWBA  Lo6>rcC'l*  IP  Afft>  t4Ave  WAAAft.  TA^k) 

1 O PAR 

^ ^ ^ J ^ ® ??  JJ  TJ 

1 « IN 

/ « 1^*  a4  aaaa« 

OUT 

®1^1  1 1 1 1 1 1 1 1 1 1 1 

T 

TYPE 

20  .AAiTfl  loTAL  WATPA  LOU  Rati  of  6-Keeff  * ToMicA 

PAR 

Si;(  7 , 0 , O ^ 3 , i,  0,3,  0,0,/,  0-1 

20  IN 

Y y 7 1 y 1 y ^ 7^  777777777?  777  7 

OUT 

^1^1  1 1 1 1 1 1 1 1 i 1 1 

T 

aa«44««««  aa  aa 

TYPE 

ni ^ eciV-T^VNg 1 1 

PAR 

0 m ^ y 1 J 3 y ""I  y 47  1*^1  1 1 1 y J y 

IN 

1 11«  ««««  ««  «««««  aaa« 

OUT 

T 

7 77  77  7 77  7 77  7 7 

TYPE 

20  y A KITH  TOTAL  fos^a^L  Ea/BAO-T  USE  RATE  CM 

-V  1 PAR 

/(.yfs  ,o  ,-l  ,ifSO^  1,0,0, i^-l  ^i$oo^  1 3 ,-/  ,««  a. 

oL(  iiM 

/ ^y^l  ^ « 44  4 4 44  44  44  44  4 4 aa  4 

OUT 

0 S ! ^ 4 4 4 4 4 44  4 4 44 

T 

TYPE 

^o  y AKITA  Sot~AA  e/<iPA&>T  COL.L0CTZOA/  AAT£  iAAy/^/Aixy 

-1  PAR 

9 ^ / y O y "7  y 9 y 7 ^^'^^7  ^ 7 7 7 7 7 7 

IN 

/3,  ^44  444  4414444  44444  44  44  44444 

OUT 

^ * t % 4 a-  a 4 4 4 4 4 4 4 4 

T 

TYPE 

2.0  y AkXTF  SOLAK.  EA/EAB-T  (A.S£  KATE  CMJ/s/AfAy 

PAR 

7 1 7 ^ 7 ^ 7 7^^'^'S  ^7  7 7 77  7 7 

IN 

/Sa^a  44  44  4 4 4 4 444  44  44  4 44  444  44  aa 

OUT 

®7'7  7 77  7 7 7 7 7 7 71 

T 

''7  777  777  77  7i7 

TYPE 

20  y AAITH  SOLA2.  wHILB  Ui^VSf^rZLATBI^  CMj/s/mO 

...  PAR 

8 ^ 2 y O y O y 1 y “!  ^ 7 7 7 7 7 7 

IN 

/ ^9  * 444444  444444  44  44444  44  44 

OUT 

^7*7  7 7 7 7 7 7 7 ’ ' ’ ^ 

T 

J > a a a- — a a a a a a a a 

PRINTER;  b b b— -b b— b b b b b b b b b— 

LABELS;  b b b b b b b b b b b b b b 


Figure  34. 

Completed  data  form  for  units  17  through  24  of  file 
MEBDI  for  solar  greenhouse  system  example. 
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MEB  MODEL  INPUT  DATA  - CONTINUED 


UNIT I 2 3 45  6 7 89  10  II.  12  13  14 


TYPE 

A.  j ctKatoa 

PAR 

6 j f Jt  tf 

CXD  IN 

1 ^ ft  Tf  TTT  T TT  f 

OUT 

? T t 1 1 f t 

T 

TYPE 

X , AAfAfu^AL  Xa/tbIaatoA.  ’ ’ ’ 

^ . PAR 

cjIGo  in 

1 ^ ^ T ^ T ^ ^ TTTTITTTf?  tittf 

OUT 

^7^7  ^7^  7^  7^7  1 1 J 7 ? 7 7 

T 

7 7 7 7 7 ? ? T ? 7 * * * 

TYPE 

3 HouALV  PATa/TBA 

^-7  PAR 

3V  f ^ j j j j j j j j 

d / IN 

YA  , ^v.  m • //«  . AO  . TAO  , WAO.  Tco  , rC  1 , TV/  , r&  Ita’t  Iwix’  rVs  J 

T 

TYPE 

PAR 

T 7 7 7 7 7 7 7 7 7 7 7 7 7 

IN 

^7^1  1 3.^  13  7 ^ T^T  ^ ^7^1^ 

uftKJ-GUT 

TTK  . tax  . A?AX.  WAX  . TtX  . AfLX.TLT./11.T;  1 fr/V  1 ^iV  1 6*'xj 

T 

\^AX^r-  LisejJs  ^luuoW  J ! t 

TYPE 

Ca»>Tt-,Vr<6  * ^ 

PAR 

^ 

97?  Iff  99  9 9 

IN 

^7  ^ 7^®7  1 9^*  9 1 9 ^^9  ^ 7^^7  ^ 9^^9  ^9  99  99  99  99999  99  99 

€rCT  ^ E ^ f j S“  9 ^^9  9 9 9 9 9 9 9 

T 

TYPE 

3 9 OArLY  PATA/TBA, 

PAR 

/A  9 XH  9 j X & j 9 9 9 9 9 9 9 9 9 

IN 

/ 9^^92925*93  9i2^9y  94^3“ 92^9 (>92^9  1 92^9 ^9  26939259V  92^^9^^  A 9 999 

OUT 

«4  •• 

T 

TYPE 

PAR 

**ftf9999  fff9 

IN 

« »««««  *«  %«  ••••• 

OUT 

* 9 1 9 9 9 9 9 99 

T 

TYPE 

PAR 

**  *9  99999  999  9 

IN 

«•«««*««««  «••• 

OUT 

T 

TYPE 

PAR 

•<^’99999  9999 

IN 

««««««««««««««««  ••  ««  «• 

OUT 

•'9  999999  99  99 

T 

PRINTER:  b-^^b-®fib-^Sb^^tb^^ib^--b-^^b-A£b-A®b^--b---b--^^b b 

LABELS:  b b b b b b b b b b b b b b 


Figure  35. 

Completed  data  form  for  units  25  through  28  of  file 
MEBDI  for  solar  greenhouse  system  example. 
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T9bl9  3.—  Detailed  explanation  of  printer  labels  for  solar  greenhouse  system 
example 


Printer 

input 

Nq. 

Ubel 

Item 

From— 

Unit  Output 
No.  No. 

Hourly  printer: 

1 

YR 

year 

1 

1 

Z 

MON 

month 

1 

2 

3 

DAY 

day 

1 

3 

4 

HR 

hour 

1 

4 

5 

SO 

outside  solar  radiation  (W/m^ 

1 

12 

6 

TAO 

outside  air  temperature  (**C) 

1 

9 

7 

WAO 

outside  humidity  ratio  (kg/kg) 

1 

6 

8 

TOO 

greenhouse  outside  cover  temperature  (**C) 

4 

1 

9 

TCI 

greenhouse  inside  cover  temperature  (**0) 

4 

2 

10 

TV 

greenhouse  vegetation  temperature  (°C) 

4 

3 

11 

TO 

greenhouse  soil  surface  temperature  (**0) 

4 

4 

13 

TAI 

greenhouse  air  temperature  (**0) 

4 

6 

13 

WAI 

greenhouse  humidity  ratio  (kg/kg) 

4 

7 

14 

TQS 

greenhouse  soil  storage  temperature  (**6) 

4 

8 

15 

TTK 

water  temperature  in  tank  (®C) 

17 

1 

16 

m 

air  temperature  from  heat  exchanger  (°C) 

13 

1 

17 

MAX 

air  flow  rate  from  heat  exchanger  (kg/s) 

13 

2 

18 

WAX 

air  humidity  ratio  from  heat  exchanger  (kg/kg) 

13 

3 

19 

TU 

water  temperature  from  heat  exchanger  (^C) 

13 

4 

20 

MLX 

water  flow  rate  from  heat  exchanger  (kg/s) 

13 

5 

21 

TLT 

water  temperature  from  cooling  tower  (^C) 

16 

4 

22 

MLT 

water  flow  rate  from  cooling  tower  (kg/s) 

16 

5 

23 

G13 

control  variable  @ 13<*C 

5 

1 

24 

G15 

control  variable  @ 15.5°C 

5 

3 

25 

G24 

control  variable  @ 24.5*’C 

5 

6 

26 

G26 

control  variable  @ 26.5 ’’C 

5 

8 

27 

G29 

control  variable  @ 29.5  °C 

5 

10 

28 

GX 

control  variable  for  heat  exchanger  fan  and  pump 

7 

1 

29 

GCT 

control  variable  for  cooling  tower  fan  and  pump 

19 

1 

30 

E 

water  loss  rate  (mm/s) 

20 

1 

31 

Q 

fossil  energy  use  rate  (MJ/m^^s) 

21 

1 

32 

S + 

solar  energy  collection  rate  (MJ/m^.s) 

22 

1 

33 

S- 

solar  energy  use  rate  (MJ/m^^s) 

23 

1 

34 

SU 

solar  radiation  received  while  unventilated 
(MJ/m^.s) 

24 

1 
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Table  3 — Detailed  explanation  of  printer  labels  for  solar  greenhouse  system 
example— Continued 


Printer 

input 

No. 

Label 

Item 

From— 

Unit  Output 
No.  No. 

Daily  printer: 

1 

DS 

daily  outside  solar  radiation  (J/m^) 

25 

1 

2 

DE 

daily  water  loss  (mm) 

25 

2 

3 

DQ 

daily  fossil  energy  use  (MJ/m^) 

25 

3 

4 

DS-f- 

daily  solar  energy  collected  (MJ/m^) 

25 

4 

5 

DS- 

daily  solar  energy  used  (MJ/m^) 

25 

5 

6 

DSU 

daily  solar  radiation  received  while  unventilated 
(MJ/m2) 

25 

6 

7 

AS 

accum.1  outside  solar  radiation  (J/m^) 

26 

1 

8 

AE 

accum.1  water  loss  (mm) 

26 

2 

9 

AQ 

accum.1  fossil  energy  use  (MJ/m^) 

26 

3 

10 

AS-h 

accum."'  solar  energy  collected  (MJ/m^) 

26 

4 

11 

AS- 

accum.1  solar  energy  used  (MJ/m^) 

26 

5 

12 

ASU 

accum.i  solar  radiation  received  while 
unventilated  (MJ/m^ 

26 

6 

^accumulated  from  start  of  simulation. 


Figure  36  is  a listing  of  file  MEBDI  that  was  entered  into  the  computer  from  the 
forms  in  figures  30  through  35.  Then  figure  37  is  the  sample  printout  from  a run  with 
the  solar  greenhouse  example.  As  usual,  the  first  portion  is  a printout  of  information 
read  from  the  MEBDI  file,  and  the  user  is  again  cautioned  to  check  his  or  her  own 
printouts  carefully  for  possible  misconnections  or  other  errors.  Next  in  the  printout  is 
the  hour-by-hour  listing  of  the  many  system  variables  as  specified  in  figure  35  and 
table  3.  Note  the  several  FOG  ENCOUNTERED  IN  LXCHNR  messages.  These  warn 
that  at  night  the  air  in  the  type  9 direct-contact  latent  and  sensible  heat  exchanger 
became  saturated— a condition  that,  in  this  case,  is  not  surprising  or  consequential. 
Finally,  at  the  end  of  figure  37,  there  is  a daily  summary  of  the  integrated  variables 
from  the  daily  printer.  The  variables  whose  labels  start  with  D are  daily  totals, 
whereas  those  whose  labels  start  with  A are  total  accumulations  since  the  start  of  the 
simulation  (table  3).  Because  this  example  was  only  run  for  1 day,  the  corresponding 
D and  A values  are  equal. 

The  hourly  solar  radiation,  fossil  energy  used,  solar  energy  collected,  and  solar 
energy  used  are  plotted  against  time  of  day  in  figure  38  for  the  solar  greenhouse 
system  example.  Comparison  with  figure  27  for  the  conventional  greenhouse  shows 
that  the  solar  greenhouse  required  only  about  one-third  as  much  fossil  energy.  The 
energy  used  by  the  solar  greenhouse  was  solely  electrical,  however,  since  no  aux- 
iliary heat  was  required  (figure  37),  and  electrical  energy  costs  considerably  more 
than  other  energy  sources  that  could  be  burned  in  the  conventional  greenhouse. 
Therefore,  the  parasitic  consumption  of  electrical  energy  by  the  fans  and  pumps  in 
this  solar  system  example  significantly  decreases  the  advantage  of  the  solar 
greenhouse  over  the  conventional  greenhouse.  Regardless,  however,  of  the  practical 
significance  of  the  difference  in  energy  consumption  between  these  two  greenhouses, 
these  examples  serve  to  demonstrate  the  power  and  versatility  of  the  MEB  model  for 
simulating  a variety  of  systems  with  few  or  many  devices  and  simple  or  complex  con- 
trol strategies. 


Figure  36. 

Listing  of  file  MEBDI  for  the  solar  greenhouse  system 
example. 

SOLAR  GREENHOUSE  SYSTEM  EXAMPLE  (7MAR78  DATA)  FILE  ISGSX 

P837 

6 

78,  3,  7,  0.0,  1.0,25,  0,0 

28 

1,  READER 

1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1,1 

13,  RESERVOIR 

4 

0.0,  0.8,  0.2 
0.0,  0.8,  0.2 

12,  CALENDAR  ”0"  FOR  WINTER 

5 

0,0,193,0 

0,1 

14,  COMPLICATED  GREENHOUSE 

2,  62,  27,  73,  5,  1.0,  1,  0,  0.13,  0.16,  0.98,  0.95,  0,  0,  0, 

5.7,  3.8,  1.5,  0.33,  9.0,  4.5,  0,  100,  20300,  17,  100,  6,  0,  0 

1.00,  0,  0,  0,  0.24,  0,  0.00,  0,  0,  0,  160,  0,  0,  0,  0.07,  0/ 

1.00,  0,  0,  0,  0.87,  0,  0.87,  0,  0.00,  0,  0,  0,  0.00,  0,  0,  0/ 

0.12,  0.12,  0,  0,  0.039,  0.039,  0,  0,  0.00,  0.23,  0,  0 

I, 12,  1,21,  1,7,  1,8,  1,9,  1,6,  2,2,  2,3/ 

2.1,  2,1,  2,1,  8,2,  2,1,  2,1,  2,1,  2,1/ 

2.1,  2,1,  2,1,  2,1,  2,1,  9,1,  9,2,  9,3/ 

13.1,  13,2,  13,3 

13,  13,  15.5,  18,  -2,  15.5  0.01,  21.6,  1,1, 1,1, 1,1, 1,1, 1,1, 1,1 

1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1, 1,1,1 

II,  -500,  -500,  30-CM-THICK  SLAB  OF  MOIST  SAND 


0.72749,  18, 

17.34,  AVONDALE  LOAM  @ 0 

1.10  M3  H20/M3  SOIL 

1. 

39.3336, 

0.0018, 

46.6613 

2, 

-51.3176, 

0.2246, 

-61.4591, 

19.1, 

21.7 

3. 

12.7625, 

0.7904, 

15.3308, 

19.6, 

21.7 

4, 

0.7981, 

0.5485, 

0.9750, 

20.1, 

21.8 

5, 

0.1899, 

0.1931, 

0.2388, 

20.9, 

21.7 

6, 

0.0526, 

0 .0580 , 

0.0666, 

22.1, 

21.6 

7, 

0.0151, 

0.0169, 

0.0191, 

23.7, 

21.3 

8. 

0.0043, 

0.0049, 

0.0055, 

26.1, 

21.0 

9, 

0.0013, 

0.0014, 

0.0016, 

27.8, 

20.7 

10, 

0.0004, 

0.0004, 

0.0005, 

28.8, 

20.4 

11, 

0.0001, 

0.0001, 

0.0001, 

28.9, 

20.1 

22, 

7 

MULTISTAGE  THERMOSTAT 

/ 

20, 

13,  15.5 

, 24,  26. 

5,  29.5 

4,6 

0, 

1,  .5, .5, 

1,  0, 

1,  0,  1, 

0 

20, 

Q 

ARITH  CHOOSE  G24 

IN  WINTER 

OR  G26 

.5  IN  SUMMER 

4, 

0,  0,  10, 

0,  0,  10 

. 9 

5,6 

, 3,2,  5, 

8,  3,1 

0,1 

20, 

ARITH  ’ 

1’  IF  TAI 

TOO  COLD 

OR  TOO 

1 HOT 

5 

2,  0,  0,  9 


UNIT  1 
UNIT  2 

UNIT  3 

UNIT  4 

0/ 

, 0.66,  0/ 


,1,1, 1,1, 1,1/ 


UNIT  5 

UNIT  6 

UNIT  7 
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UNIT  8 


5,3,  6,1 
.5, .5 

20,  ARITH  PROPORTION  DAMPER  SO  OPEN  GIVES  .4  OUTSIDE  AIR 
6 

1,  0,  -1,  0.4,  1 

5,  10 

0,1 

16,  HEATER 
6850,  0.26,  0.0 
4,6,  9,2,  4,7,  5,1 
20,  0,  0 

7,  TEE  MIX  0.4  OUTSIDE  AIR  WITH  GREENHOUSE  AIR 
3 

1,9,  4,51,  1,6,  4,6,  4,51,  4,7,  8,1 
15,  0.0,  0.01,  0,  1.8,  0 

6,  GREENHOUSE  FAN 
3.7 

10,1,  10,2,  10,3,  7,1 
15,  1.8,  0.01 
6,  GREENHOUSE  PUMP 
3.7 


17.1,  17,2,  2,1,  7,1 

18.5,  1.8,  0 

9,  HEAT  EXCHANGER  (EXCELSIOR  PADS) 

1,  -1,  4.6,  0.051,  4190,  37,  1.46,  0.10,  65000,  0.4,  0.83,  0 

11.1,  11,2,  11,3,  12,1,  12,2,  1,8,  13,4,  7,1 

15.5,  1.8,  0.01,  15.5,  1.8,  0,  0 
6,  COOLING  TOWER  PUMP 

3.7 

17,3,  17,4,  2,1,  19,1 

18.5,  0,  0 

6,  COOLING  TOWER  FAN 
3.7 


1,9,  15,2,  1,6,  19,1 
16,  0,  0 

9,  COOLING  TOWER  (EXCELSIOR  PADS) 

I,  -1,  4.6,  0.051,  4190,  37,  1.46,  0.10,  65000,  0.4,  0.83,  0 

15.1,  15,2,  15,3,  14,1,  14,2,  1,8,  16,4,  19,1,  19,1 
16,  0,  0,  16,  0,  0,  0 

II,  WATER  TANK  U.5M  HIGH  BY  7.32M  DIAMETER) 

1,  63,  1.5,  4190,  1000,  0.1,  18.5,  0,  1,  1,  0,  0 

13.4,  13,5,  16,4,  16,5,  1,9,  2,1 

18.5,  1.8,  18.5,  0,  0,  0,  0,  0 
18.5 

4,  DIFFERENTIAL  THERMOSTAT  (ON  IF  TTK-TWB  > 2) 

2,  18,  2 
17,3,  1,10 
1,  0 

20,  ARITH  TOWER  LOGIC  ('1'  IF  SUMMER  AIJD  HAVE  WARM  TANK) 

5 

2,  0,  0,  10 

3.1,  18,2 

0,1 

20,  ARITH  TOTAL  WATER  LOSS  RATE  OF  GREENOUSE  + TOWER  (MM/S) 
21 


UNIT  9 


UNIT  10 


UNIT  11 


UNIT  12 


UNIT  13 


UNIT  14 


UNIT  15 


UNIT  16 


UNIT  17 


UNIT  18 


UNIT  19 


UNIT  20 


140 


7,  0,  0,  3,  -1,  2.45E6,  2,  0,  3,  0,  0,  1,  0,  0,  4/ 

1 3 -1 , 27 , 2 

4^29^  4,31,  16,7,  11,2,  8,1,  4,7,  1,6, 

0,  1 

20,  ARITH  TOTAL  FOSSIL  ENERGY  USE  RATE  (MJ/S/M2) 

16 

3,  0,  -1,  6850,  1,  0,  0,  3,  -1,  1800,  1,  3,  -1,  27. E6,  2 
5,1,  7,1,  19,1 
0,  1 

20,  ARITH  SOLAR  ENERGY  COLLECTION  RATE  (MJ/S/M2) 

8 

1,  0,  7,  8,  -1,  27. E6,  2 
13,6 
0,  1 

20,  ARITH  SOLAR  ENERGY  USE  RATE  (MJ/S/M2) 

7 

1,  0,  8,  -1,  27. E6,  2 
13,6 

0,  1 

20,  ARITH  SOLAR  RECEIVED  WHILE  UNVENTILATED  (MJ/S/M2) 

8 

2,  0,  0,  1,  -1,  1.E6,  2 
1,12,  5,9 

0,1 

2,  DAILY  INTEGRATOR 
6,  24,  25 

1,12,  20,1,  21,1,  22,1,  23,1,  24,1 
0,  0,  0,  0,  0,  0 
2,  ANNUAL  INTEGRATOR 
6,  8761,  26 


UNIT  21 


UNIT  22 


UNIT  23 


UNIT  24 


UNIT  25 


UNIT  26 


1, 

12,  20, 

1,  21,1, 

22, 

,1. 

23,1, 

24, 

,1 

0, 

0,  0, 

0,  0,  0 

3, 

HOURLY 

PRINTER 

UNIT 

27 

34 

, 1,  80 

, 27 

1 

> 

1,  1,2, 

1,3,  1, 

4,  1 

L,12 

, 1.9 

, 1. 

.6,  4, 

1, 

4,2, 

. 4,3,  4, 

4,  4,6, 

4,7, 

, 4,8/ 

17 

,1,  13, 

1,  13,2, 

13, 

.3, 

13,4, 

13, 

,5,  16 

.4, 

16. 

.5,  5,1, 

5,3,  5, 

6,  5, 

,8,  5, 

10, 

7,1/ 

19 

,1,  20, 

1,  21,1, 

22, 

,1, 

23,1, 

24, 

,1 

YR  MON 

DAY  HR 

SO 

TAO 

WAO 

TCO 

TCI 

TV 

TG 

TAI  WAI 

TGS  TTK 

TAX 

MAX  WAX 

TLX  MLX 

TLT  MLT 

G13  G15 

G24 

G26 

G29 

GX 

GCT 

E 

Q 

S+  S- 

SU 

3, 

DAILY 

PRINTER 

UNIT 

28 

12 

, 24,  80,  28 

25 

,1,  25, 

2,  25,3, 

25, 

25,5, 

25, 

,6,  26 

,1, 

26, 

,2,  26,3, 

26,4, 

26,5, 

, 26,6 

DS  DE 

DQ  DS+ 

DS- 

DSU 

AS 

AE 

AQ  AS+ 

AS- 

ASU 
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Figure  37. 

Sample  printout  for  solar  greenhouse  system  example. 

MODULAR  ENERGY  BALANCE  SIMULATION 


SOLAR  GREENHOUSE  SYSTEM  EXAMPLE  (7MAR78  DATA)  FILE  ISGSX 
RUN  AT  10:33  AM  TUE.,  30  NOV.,  1982 
WEATHER  DATA  FROM  FILE  P837 

STARTING  YR=78.  MN=  3.  DY=  7.  HR=  0.00 


INCREMENT  = 
NO.  TIMES  = 
FIRST  TRACE= 
LAST  TRACE= 
NO . UNITS  = 


1.00  HOURS 
25 

-1.00  HOURS 
-1.00  HOURS 
28 


UNIT  1 IS  A TYPE  1 READER 
PARAMETERS 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

INITIAL  OUTPUTS 

1 .lOOOE+Ol  2 .lOOOE+01  3 .lOOOE+Ol  A .lOOOE+Ol  5 

7 .lOOOE+Ol  8 .lOOOE+01  9 .lOOOE+Ol  10  .lOOOE+Ol  11 

13  .lOOOE+Ol  14  .lOOOE+01  15  .lOOOE+Ol  16  .lOOOE+Ol  17 

19  .lOOOE+Ol  20  .lOOOE+Ol  21  .lOOOE+Ol  22  .lOOOE+Ol  23 

INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  2 IS  A TYPE  13  RESERVOIR 
PARAMETERS 

1 .AOOOE+Ol  2 .OOOOE+OO  3 .8000E-K)0  4 .2000E-K)0 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

INITIAL  OUTPUTS 

1 .OOOOE+OO  2 .8000E+00  3 .2000E+00 

INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  3 IS  A TYPE  12  TIME  FUNCTION 
PARAMETERS 

1 .5000E+01  2 .OOOOE+OO  3 .OOOOE+OO  4 .1930E+03  5 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

INITIAL  OUTPUTS 

1 .OOOOE+OO  2 .lOOOE+01 
INITIAL  VALUES  OF  DEPENDENT  VARIABLES 


UNIT  4 IS  A TYPE  14  COMPLICATED  GREENHOUSE 


PARAMETERS 
1 .2000E+01 
7 .lOOOE+01 
13  .OOOOE+OO 
19  .1500E+01 
25  .2030E+05 
31  .6600E+00 
37  .2400E+00 
43  .1600E+03 
49  .lOOOE+01 
55  .8700E+00 
61  .OOOOE+OO 


2 .6200E+02  3 

8 .OOOOE+OO  9 
14  .OOOOE+OO  15 
20  .3300E+00  21 
26  .1700E+02  27 
32  .OOOOE+OO  33 
38  .OOOOE+OO  39 
44  .OOOOE+OO  45 
50  .OOOOE+OO  51 
56  .OOOOE+OO  57 
62  .OOOOE+OO  63 


.2700E+02  4 
.1300E-K)0  10 
.OOOOE+OO  16 
.9000E+01  22 
.lOOOE+03  28 
.lOOOE+01  34 
.OOOOE+OO  40 
.OOOOE+OO  46 
.OOOOE+OO  52 
.OOOOE+OO  58 
.OOOOE+OO  64 


.7300E+02  5 
.1600E+00  11 
.OOOOE+OO  17 
.4500E+01  23 
.6000E+01  29 
.OOOOE+OO  35 
.OOOOE+OO  41 
.OOOOE+OO  47 
.OOOOE+OO  53 
.OOOOE+OO  59 
.OOOOE+OO  65 


.lOOOE+01  6 
.lOOOE+01  12 
.lOOOE+01  18 
.lOOOE+01 


.OOOOE+OO 


.5000E+01  6 
.9800E+00  12 
.5700E+01  18 
.OOOOE+OO  24 
.OOOOE+OO  30 
.OOOOE+OO  36 
.OOOOE+OO  42 
.7000E-01  48 
.8700E+00  54 
.OOOOE+OO  60 
.1200E+00  66 


.lOOOE+01 

.lOOOE+01 

.lOOOE+01 


.lOOOE+01 

.9500E+00 

.3800E+01 

.lOOOE+03 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+OO 

.OOOOE+OO 

.1200E+00 
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67 

.OOOOE+OO 

68 

.OOOOE+OO 

69 

.3900E-01 

70 

.3900E-01 

71 

.OOOOE+OO 

72 

.OOOOE+OO 

73 

.OOOOE+OO 

74 

.2300E+00 

75 

. OOOOE+OO 

76 

.OOOOE+OO 

INPUTS  (INPUT  NO. 

, UNIT  NO. 

, ' 

3UTPUT  NO.) 

1 1 12 

2 1 21 

3 17 

4 18 

5 19 

6 16 

7 2 2 

8 2 3 

9 2 1 

10  2 1 

11  2 1 

12  8 2 

13  2 1 

14  2 1 

15  2 1 

16  2 1 

17  2 1 

18  2 1 

19  2 1 

20  2 1 

21  2 1 

22  9 1 

23  9 2 

24  9 3 

25  13  1 

26  13  2 

27  13  3 

INITIAL  OUTPUTS 

1 

.1300E+02 

2 

.1300E+02 

3 

.1550E+02 

4 

.1800E+02 

5- 

■.2000E+01 

6 

.1550E+02 

7 

.lOOOE-01 

8 

.2160E+02 

9 

.lOOOE+01 

10 

.lOOOE+01 

11 

.lOOOE+01 

12 

.lOOOE+01 

13 

.lOOOE+01 

14 

.lOOOE+01 

15 

.lOOOE+01 

16 

.lOOOE+01 

17 

.lOOOE+01 

18 

.lOOOE+01 

19 

.lOOOE+Ol 

20 

.lOOOE+01 

21 

.lOOOE+01 

22 

.lOOOE+01 

23 

. lOOOE+01 

24 

.lOOOE+01 

25 

.lOOOE+01 

26 

.lOOOE+01 

27 

.lOOOE+01 

28 

.lOOOE+01 

29 

.lOOOE+01 

30 

.lOOOE+01 

31 

.lOOOE+Ol 

32 

.lOOOE+01 

33 

.lOOOE+01 

34 

.lOOOE+01 

35 

.lOOOE+01 

36 

.lOOOE+01 

37 

. lOOOE+Ol 

38 

.lOOOE+01 

39 

.lOOOE+01 

40 

.lOOOE+01 

41 

.lOOOE+01 

42 

.lOOOE+01 

43 

.lOOOE+Ol 

44 

.lOOOE+01 

45 

.lOOOE+01 

46 

.lOOOE+01 

47 

.lOOOE+01 

48 

.lOOOE+01 

49 

.lOOOE+Ol 

50 

.lOOOE+01 

51 

.lOOOE+01 

52 

.lOOOE+01 

INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

SOIL  RESPONSE  FACTORS  AND  TEMPERATURE  HISTORY 

MMAX=  11  GOOLD  = -.50000E+03  GSOOLD=  -.50000E+03 


BR=  .72749E+00  TD=  18.00  B41=  17.34000 


M 

B1 

B2 

B3 

TGO 

TGS 

1 

39.33360 

.00180 

46.66130 

2 

-51.31760 

.22460 

-61.45910 

19.10 

21.70 

3 

12.76250 

.79040 

15.33080 

19.60 

21.70 

4 

.79810 

.54850 

.97500 

20.10 

21.80 

5 

.18990 

.19310 

.23880 

20.90 

21.70 

6 

.05260 

.05800 

.06660 

22.10 

21.60 

7 

.01510 

.01690 

.01910 

23.70 

21.30 

8 

.00430 

.00490 

.00550 

26.10 

21.00 

9 

.00130 

.00140 

.00160 

27.80 

20.70 

10 

.00040 

.00040 

.00050 

28.80 

20.40 

11 

.00010 

.00010 

.00010 

28.90 

20.10 

UNIT  5 IS  A TYPE  22  MULTISTAGE  THERMOSTAT 
PARAMETERS 


1 .7000E+01  2 .2000E+02 

7 .2950E+02 

3 .1300E+02 

4 

.1550E+02 

5 .2400E+02 

6 .2650E+02 

INPUTS  (INPUT  NO.,  UNIT  NO. 

, OUTPUT  NO.) 

14  6 

INITIAL  OUTPUTS 

1 .OOOOE+OO  2 .lOOOE+01 

3 .5000E+00 

4 

.5000E+00 

5 .lOOOE+01 

6 .OOOOE+OO 

7 .lOOOE+01  8 .OOOOE+OO 

9 .lOOOE+01 

10 

.OOOOE+OO 

INITIAL  VALUES  OF  DEPENDENT 

VARIABLES 

UNIT  6 IS  A TYPE  20  ARITHMETIC  CALCULATOR 

PARAMETERS 

1 .9000E+01  2 .4000E+01 

3 .OOOOE+OO 

4 

.OOOOE+OO 

5 .lOOOE+02 

6 .OOOOE+OO 

7 .OOOOE+OO  8 .lOOOE+02 

9 .9000E+01 

INPUTS  (INPUT  NO.,  UNIT  NO. 

, OUTPUT  NO.) 

1 5 6 2 3 2 

3 5 8 

4 3 1 

INITIAL  OUTPUTS 

1 .OOOOE+00  2 .lOOOE+Ol 


INITIAL  VALUES  OF  DEPENDENT  VARIABLES 


UNIT  7 IS  A TYPE  20  ARITHMETIC  CALCULATOR 
PARAMETERS 

1 .5000E+01  2 .2000E+01  3 .0000E4O0  4 .0000E4O0  $ .9000E401 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

1 5 3 2 6 1 

INITIAL  OUTPUTS 

1 .5000E400  2 .5000E+00 

INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  8 IS  A TYPE  20  ARITHMETIC  CALCULATOR 
PARAMETERS 

1 .6000E-H}1  2 .lOOOE+01  3 .OOOOE+00  4-.1000E+01  5 .4000E+00  6 .lOOOE+01 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

1 5 10 

INITIAL  OUTPUTS 

1 .00001400  2 .1000E401 

INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  9 IS  A TYPE  16  HEATER 
PARAMETERS 

1 .6850E404  2 .2600E+00  3 .0000E400 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

146  292  347  4Sl 

INITIAL  OUTPUTS 

1 .2000E402  2 .0000E400  3 .0000E400 

INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  10  IS  A TYPE  7 TEE 
PARAMETERS 
. 1 .3000E401 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

119  24  51  316  446  54  51  647 

7 8 1 

INITIAL  OUTPUTS 

1 .1500E402  2 .0000E400  3 .lOOOE-01  4 .0000E400  5 .1800E+01  6 .0000E4O0 

INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  11  IS  A TYPE  6 PUMP  OR  FAN 
PARAMETERS 
1 .3700E401 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

1 10  1 2 10  2 3 10  3 471 

INITIAL  OUTPUTS 

1 .1500E402  2 .1800E401  3 .lOOOE-01 

INITIAL  VALUES  OP  DEPENDENT  VARIABLES 

UNIT  12  IS  A TYPE  6 PUMP  OR  FAN 
PARAMETERS 
1 .3700E401 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

1 17  1 2 17  2 321  471 

INITIAL  OUTPUTS 
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1 .1850E+02  2 .1800E+01  3 .OOOOE+00 

INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  13  IS  A TYPE  9 LATENT  AND  SENSIBLE  HEAT  EXCHANGER 
PARAMETERS 

1 .lOOOE+01  2-.1000E-K)l  3 .4600E+01  4 .5100E-01  5 .4190E+04  6 .3700E+02 

7 .1460E+01  8 .lOOOE+00  9 .6500E-K)5  10  .4000E+00  11  .8300E-K)0  12  .OOOOE+00 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

1 11  1 2 11  2 3 11  3 4 12  1 5 12  2 618 

7 13  4 8 7 1 

INITIAL  OUTPUTS 

1 .1550E-K)2  2 .1800E-K)1  3 .lOOOE-Ol  4 .1550E+02  5 .1800E-K)1  6 .OOOOE+OO 

7 .OOOOE+OO 

INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  14  IS  A TYPE  6 PUMP  OR  FAN 
PARAMETERS 
1 .3700E+01 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

1 17  3 2 17  4 321  4 19  1 

INITIAL  OUTPUTS 

1 .1850E+02  2 .OOOOE+OO  3 .OOOOE+OO 

INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  15  IS  A TYPE  6 PUMP  OR  FAN 
PARAMETERS 
1 .3700E+01 


INPUTS  (INPUT  NO.,  UNIT  NO. 

, OUTPUT  NO.) 

119  2 15  2 

3 16 

4 19  1 

INITIAL  OUTPUTS 

1 .1600E+02  2 .OOOOE+OO 

3 .OOOOE+OO 

INITIAL  VALUES  OF  DEPENDENT 

VARIABLES 

UNIT  16  IS  A TYPE  9 LATENT 

AND  SENSIBLE 

HEAT  EXCHANGER 

PARAMETERS 

1 .lOOOE+01  2-.1000E+01 

3 .4600E+01 

4 .5100E-01 

5 .4190E+04 

6 .3700E+02 

7 .1460E+01  8 .lOOOE+00 

9 .6500E+05 

10  .4000E+00 

11  .8300E+00 

12  .OOOOE+OO 

INPUTS  (INPUT  NO.,  UNIT  NO. 

, OUTPUT  NO.) 

1 15  1 2 15  2 

7 16  4 8 19  1 

3 15  3 

4 14  1 

5 14  2 

6 18 

INITIAL  OUTPUTS 

1 .1600E+02  2 .OOOOE+OO 

7 .OOOOE+OO 

3 .OOOOE+OO 

4 .1600E+02 

5 .OOOOE+OO 

6 .OOOOE+OO 

INITIAL  VALUES  OF  DEPENDENT 

VARIABLES 

UNIT  17  IS  A TYPE  11  FLUID 
PARAMETERS 

STORAGE  TANK 

1 .lOOOE+01  2 .6300E+02 

3 .1500E+01 

4 .4190E+04 

5 .lOOOE+04 

6 .lOOOE+OO 

7 .1850E+02  8 .OOOOE+OO 

9 .lOOOE+01 

10  .lOOOE+01 

11  .OOOOE+OO 

12  .OOOOE+OO 

INPUTS  (INPUT  NO.,  UNIT  NO. 

, OUTPUT  NO.) 

1 13  4 2 13  5 

3 16  4 

4 16  5 

5 19 

6 2 1 

INITIAL  OUTPUTS 

1 .1850E+02  2 .1800E+01 

3 .1850E+02 

4 .OOOOE+OO 

5 .OOOOE+OO 

6 .OOOOE+OO 

7 .OOOOE+OO  8 .OOOOE+OO 


INITIAL  VALUES  OF  DEPENDENT  VARIABLES 
1 .1850E+02 

UNIT  18  IS  A TYPE  4 THERMOSTAT 
PARAMETERS 

1 .2000E+01  2 .1800E-K)2  3 .2000E-I-01 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

1 17  3 2 1 10 

INITIAL  OUTPUTS 

1 .lOOOE+Ol  2 .OOOOE+00 
INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  19  IS  A TYPE  20  ARITHMETIC  CALCULATOR 
PARAMETERS 

1 .SOOOE+Ol  2 .2000E+01  3 .OOOOE+00  4 .OOOOE+OO  5 .lOOOE+02 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

13  1 2 18  2 

INITIAL  OUTPUTS 

1 .OOOOE+OO  2 .lOOOE+01 
INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  20  IS  A TYPE  20  ARITHMETIC  CALCULATOR 
PARAMETERS 

1 .2100E+02  2 .7000E+01  3 .OOOOE+OO  4 .OOOOE+OO  5 .3000E+01  6-.1000E+01 

7 .2450E+07  8 .2000E+01  9 .OOOOE+OO  10  .3000E+01  11  .OOOOE+OO  12  .OOOOE+OO 

13  .lOOOE+01  14  .OOOOE+OO  15  .OOOOE+OO  16  .4000E+01  17  .lOOOE+01  18  .3000E+01 

19-.1000E+01  20  .2700E+02  21  .2000E+01 
INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

14  29  24  31  3 16  7 4 11  2 581  647 

7 16 

INITIAL  OUTPUTS 

1 .OOOOE+OO  2 .lOOOE+01 
INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  21  IS  A TYPE  20  ARITHMETIC  CALCULATOR 
PARAMETERS 

1 .1600E+02  2 .3000E+01  3 .OOOOE+OO  4-.1000E+01  5 .6850E+04  6 .lOOOE+01 

7 .OOOOE+OO  8 .OOOOE+OO  9 .3000E+01  lO-.lOOOE+Ol  11  .1800E+04  12  .lOOOE+01 

13  .3000E+01  14-.1000E+01  15  .2700E+08  16  .2000E+01 
INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

151  271  3 19  1 

INITIAL  OUTPUTS 

1 .OOOOE+OO  2 .lOOOE+01 
INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  22  IS  A TYPE  20  ARITHMETIC  CALCULATOR 
PARAMETERS 

1 .8000E+01  2 .lOOOE+01  3 .OOOOE+OO  4 .7000E+01  5 .8000E+01  6-.1000E+01 

7 .2700E+08  8 .2000E+01 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

1 13  6 

INITIAL  OUTPUTS 

1 .OOOOE+OO  2 .lOOOE+01 
INITIAL  VALUES  OF  DEPENDENT  VARIABLES 
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UNIT  23  IS  A TYPE  20  ARITHMETIC  CALCULATOR 
PARAMETERS 

1 .7000E+01  2 .lOOOE+01  3 .OOOOE+00  4 .8000E+01  5-.1000E+01  6 .2700E-K)8 

7 .2000E+01 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

1 13  6 

INITIAL  OUTPUTS 

1 .OOOOE+00  2 .lOOOE+01 
INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  24  IS  A TYPE  20  ARITHMETIC  CALCULATOR 
PARAMETERS 


1 .8000E+01  2 .2000E+01  3 .OOOOE+OO 

7 .lOOOE+07  8 .2000E+01 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

1 1 12  2 5 9 

INITIAL  OUTPUTS 

1 .OOOOE+OO  2 .lOOOE+01 
INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  25  IS  A TYPE  2 INTEGRATOR 
PARAMETERS 

1 .6000E+01  2 .2400E+02  3 .2500E+02 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

1 1 12  2 20  1 3 21  1 

INITIAL  OUTPUTS 

1 .OOOOE+OO  2 .OOOOE+OO  3 .OOOOE+OO 

INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  26  IS  A TYPE  2 INTEGRATOR 
PARAMETERS 

1 .6000E+01  2 .8761E+04  3 .2600E+02 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 

1 1 12  2 20  1 3 21  1 

INITIAL  OUTPUTS 

1 .OOOOE+OO  2 .OOOOE+OO  3 .OOOOE+OO 

INITIAL  VALUES  OF  DEPENDENT  VARIABLES 

UNIT  27  IS  A TYPE  3 PRINTER 
PARAMETERS 


1 .3400E+02  2 .lOOOE+01  3 .8000E+02 

INPUTS  (INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.) 


1 

1 

1 

2 

1 

j 

2 

3 

1 

3 

7 

1 

6 

8 

4 

1 

9 

4 

2 

13 

4 

7 

14 

4 

8 

15 

17 

1 

19 

13 

4 

20 

13 

5 

21 

16 

4 

25 

5 

6 

26 

5 

8 

27 

5 

10 

31 

21 

1 

32 

22 

1 

33 

23 

1 

INITIAL 

OUTPUTS 

INITIAL 

VALUES 

OF  DEPENDENT 

VARIABLES 

YR  MON  DAY  HR  SO 

TAO 

WAO 

TCO 

TCI 

TV 

TLT  MLT 

G13 

G15 

G24 

G26 

G29 

GX  GCT 

E 

4 .OOOOE+OO  5 .lOOOE+01  6-.1000E+01 


4 22  1 5 23  1 6 24  1 

4 .OOOOE+OO  5 .OOOOE+OO  6 .OOOOE+OO 


4 22  1 5 23  1 6 24  1 

4 .OOOOE+OO  5 .OOOOE+OO  6 .OOOOE+OO 


4 .2700E+02 


4 

1 

4 

5 

1 

12 

6 

1 

9 

10 

4 

3 

11 

4 

4 

12 

4 

6 

16 

13 

1 

17 

13 

2 

18 

13 

3 

22 

16 

5 

23 

5 

1 

24 

5 

3 

28 

7 

1 

29 

19 

1 

30 

20 

1 

34 

24 

1 

TG  TAI  WAI  TGS  TTK  TAX  MAX  WAX  TLX  ML 
Q S+  S-  SU 
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UNIT  28  IS  A TYPE  3 PRINTER 
PARAMETERS 


1 . 

.1200E+02  2 

.2400E+02  3 .8000E+02  4 .2800E+02 

INPUTS  (INPUT  NO. 

, UNIT  NO.,  OUTPUT  NO.) 

1 25  1 

2 25  2 3 

25  3 4 25 

4 

5 25  5 

6 

25  6 

7 26  1 

8 26  2 9 

26  3 10  26 

4 

11  26  5 

12 

26  6 

INITIAL  OUTPUTS 

INITIAL  VALUES  Of 

' DEPENDENT  VARIABLES 

DS 

DE  DQ  DS+ 

DS-  DSU  AS  AE 

AQ  AS+  AS-  ASU 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

TIME 

= 0.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR 

.OOOOOOE+OO 

SO 

.00000 

TAO 

.129000E-K)2 

WAO  .818000E-02 

TCO  .128986E+02 

TCI 

.131032E+02 

TV 

.15094 

TG 

.169943E+02 

TAI  .152124E+02 

WAI  .111212E-01 

TGS 

.211545E+02 

TTK 

.18478 

TAX 

.156681E+02 

MAX  .124135E+01 

WAX  .114875E-01 

TLX 

.181519E+02 

MLX 

.12413 

TLT 

.184780E-K)2 

MLT  .OOOOOOE+OO 

G13  .OOOOOOE+OO 

G15 

.335500E+00 

G24 

.00000 

G26 

.OOOOOOE+00 

G29  .OOOOOOE+OO 

GX  .335500E+00 

GCT 

.OOOOOOE+OO 

E 

.47906 

Q 

.223666E-04 

S+  .OOOOOOE+OO 

S-  .187209E-03 

SU 

.OOOOOOE+OO 

TIME 

= 0.00 

DS 

.OOOOOOE+00 

DE  .OOOOOOE+OO 

DQ  .OOOOOOE+OO 

DS+ 

.OOOOOOE+OO 

DS- 

.00000 

DSU 

.OOOOOOE+OO 

AS  .OOOOOOE+OO 

AE  .OOOOOOE+OO 

AQ 

.OOOOOOE+OO 

AS+ 

.00000 

AS- 

.OOOOOOE+00 

ASU  .OOOOOOE+OO 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

TIME 

= 1.00 

YR 

.780000E-K)2 

MON  .300000E+01 

DAY  .700000E+01 

HR 

.lOOOOOE+01 

SO 

.00000 

TAO 

.126000E-K)2 

WAO  .805000E-02 

TCO  .131043E+02 

TCI 

.133725E+02 

TV 

.15804 

TG 

.169328E+02 

TAI  .160245E+02 

WAI  .117793E-01 

TGS 

.208882E+02 

TTK 

.18448 

TAX 

.165756E+02 

MAX  .201577E+01 

WAX  .122190E-01 

TLX 

.180562E+02 

MLX 

.20157 

TLT 

.184488E-I-02 

MLT  .OOOOOOE+OO 

G13  .OOOOOOE+OO 

G15 

.544801E+00 

G24 

.00000 

G26 

.OOOOOOE+OO 

G29  .OOOOOOE+OO 

GX  .544801E+00 

GCT 

.OOOOOOE+OO 

E 

.69870 

Q 

.363201E-04 

S+  .OOOOOOE+OO 

S-  .225440E-03 

SU 

.OOOOOOE+OO 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 
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FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

TIME 

= 2.00 

YR 

.780000E-I-02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .200000E+01 

SO  .00000 

TAO 

.122000E-K)2 

WAO  .789000E-02 

TCO  .125029E+02 

TCI  .127462E+02 

TV  .15065 

TG 

.166878E-K)2 

TAI  .152332E+02 

WAI  .111647E-01 

TGS  .206576E+02 

TTK  .18402 

TAX 

.157509E+02 

MAX  .143860E+01 

WAX  .115700E-01 

TLX  .180383E+02 

MLX  .14386 

TLT 

.184024E+02 

MLT  .OOOOOOE+OO 

G13  .OOOOOOE+OO 

G15  .389527E+00 

G24  .00000 

G26 

.OOOOOOE+00 

G29  .OOOOOOE+OO 

GX  .388812E+00 

GCT  .OOOOOOE+OO 

E .66137 

Q 

.259208E-04 

S+  .000000E-K)0 

S-  .209035E-03 

SU  .OOOOOOE+OO 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

TIME 

= 3.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .300000E+01 

SO  .00000 

TAO 

.116000E+02 

WAO  .771000E-02 

TCO  .122476E+02 

TCI  .125386E+02 

TV  .15261 

TG 

.166791E+02 

TAI  .154795E+02 

WAI  .113709E-01 

TGS  .204354E+02 

TTK  .18367 

TAX 

.161584E-I-02 

MAX  .205656E+01 

WAX  .118930E-01 

TLX  .178951E+02 

MLX  .20565 

TLT 

.183671E+02 

MLT  .OOOOOOE+OO 

G13  .OOOOOOE+OO 

G15  .555827E+00 

G24  .00000 

G26 

.OOOOOOE+OO 

G29  .OOOOOOE+OO 

GX  .555827E+00 

GCT  .OOOOOOE+OO 

E .76565 

Q 

.370551E-04 

S+  .OOOOOOE+OO 

S-  .271011E-03 

SU  .OOOOOOE+OO 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

TIME 

= 4.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .400000E+01 

SO  .00000 

TAO 

.llOOOOE+02 

WAO  .749000E-02 

TCO  .118843E+02 

TCI  .122095E+02 

TV  .15255 

TG 

.166721E+02 

TAI  .154990E+02 

WAI  .114006E-01 

TGS  .202181E+02 

TTK  .18306 

TAX 

.161488E-K)2 

MAX  .200968E+01 

WAX  .118901E-01 

TLX  .178602E+02 

MLX  .20096 

TLT 

.183061E+02 

MLT  .OOOOOOE+OO 

G13  .OOOOOOE+OO 

G15  .543156E+00 

G24  .00000 

G26 

.OOOOOOE+OO 

G29  .OOOOOOE+OO 

GX  .543156E+00 

GCT  .OOOOOOE+OO 

E .82530 

Q 

.362104E-04 

S+  .OOOOOOE+OO 

S-  .255997E-03 

SU  .OOOOOOE+OO 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

TIME 

= 5.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .500000E+01 

SO  .00000 

TAO 

.106000E+02 

WAO  .731000E-02 

TCO  .115771E+02 

TCI  .119146E+02 

TV  .15104 

TG 

.166160E+02 

TAI  .153507E+02 

WAI  .112935E-01 

TGS  .200077E+02 

TTK  .18254 

TAX 

.160319E+02 

MAX  .202683E+01 

WAX  .117997E-01 

TLX  .177910E+02 

MLX  .20268 

TLT 

.182543E+02 

MLT  .OOOOOOE+OO 

G13  .OOOOOOE+OO 

G15  .547792E+00 

G24  .00000 

G26 

.OOOOOOE+OO 

G29  .OOOOOOE+OO 

GX  .547792E+00 

GCT  .OOOOOOE+OO 

E .82745 

Q 

.365195E-04 

S+  .OOOOOOE+OO 

S-  .266041E-03 

SU  .OOOOOOE+OO 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

TIME 

= 6.00 

YR 

.780000E-K)2 

MON  .300000E+01 

DAY  .700000E+01 

HR  .600000E+01 

SO  .00000 

TAO 

.104000E+02 

WAO  .718000E-02 

TCO  .115443E+02 

TCI  .118969E+02 

TV  .15208 

TG 

.166191E+02 

TAI  .154778E+02 

WAI  .113861E-01 

TGS  .198064E+02 

TTK  .18195 

TAX 

.161690E+02 

MAX  .219500E+01 

WAX  .118985E-01 

TLX  .177265E+02 

MLX  .21950 

TLT 

.181958E+02 

MLT  .OOOOOOE+OO 

G13  .OOOOOOE+OO 

G15  .593243E+00 

G24  .00000 

G26 

.OOOOOOE+OO 

G29  .OOOOOOE+OO 

GX  .593243E+00 

GCT  .OOOOOOE+OO 

E .83546 

Q 

.395496E-04 

S+  .OOOOOOE+OO 

S-  .269509E-03 

SU  .OOOOOOE+OO 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

FOG 

ENCOUNTERED 

IN  LXCHNR 

TIME 

= 7.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .700000E+01 

SO  .50000 

TAO 

.104000E+02 

WAO  .707000E-02 

TCO  .118502E+02 

TCI  .122298E+02 

TV  .15739 

TG 

.167917E+02 

TAI  .160267E+02 

WAI  .117968E-01 

TGS  .196151E+02 

TTK  .18137 

TAX 

.166564E+02 

MAX  .258452E+01 

WAX  .122682E-01 

TLX  .177065E+02 

MLX  .25845 

TLT 

.181371E+02 

MLT  .OOOOOOE+OO 

G13  .OOOOOOE+OO 

G15  .698519E+00 

G24  .00000 

G26 

.OOOOOOE+OO 

G29  .OOOOOOE+OO 

GX  .698519E+00 

GCT  .OOOOOOE+OO 

E .87735 

Q 

.465679E-04 

S+  .OOOOOOE+OO 

S-  .247217E-03 

SU  .500000E-05 

FOG 

ENCOUNTERED 

IN  LXCHNR 

TIME 

= 8.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .800000E+01 

SO  .21800 

TAO 

.lllOOOE+02 

WAO  .703000E-02 

TCO  .128915E+02 

TCI  .131448E+02 

TV  .17729 

TG 

.179468E+02 

TAI  .159178E+02 

WAI  .113882E-01 

TGS  .194349E+02 

TTK  .18098 

TAX 

.162030E+02 

MAX  .129218E+01 

WAX  .116945E-01 

TLX  .178487E+02 

MLX  .12921 

TLT 

.180981E+02 

MLT  .OOOOOOE+OO 

G13  .OOOOOOE+OO 

G15  .349237E+00 

G24  .00000 

G26 

.OOOOOOE+OO 

G29  .OOOOOOE+OO 

GX  .349237E+00 

GCT  .OOOOOOE+OO 

E .75514 

Q 

.232824E-04 

S+  .OOOOOOE+OO 

S-  .143246E-03 

SU  .218000E-03 

TIME 

= 9.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .900000E+01 

SO  .44900 

TAO 

.128000E+02 

WAO  .710000E-02 

TCO  .159079E+02 

TCI  .161469E+02 

TV  .22071 

TG 

.204393E+02 

TAI  .188564E+02 

WAI  .133811E-01 

TGS  .192722E+02 

TTK  .18081 

TAX 

.188564E+02 

MAX  .OOOOOOE+OO 

WAX  .133811E-01 

TLX  .180810E+02 

MLX  .00000 

TLT 

.180810E+02 

MLT  .OOOOOOE+OO 

G13  .OOOOOOE+OO 

G15  .OOOOOOE+OO 

G24  .00000 

G26 

.OOOOOOE+OO 

G29  .OOOOOOE+OO 

GX  .OOOOOOE+OO 

GCT  .OOOOOOE+OO 

E .10747 

Q 

.OOOOOOE+OO 

S+  .OOOOOOE+OO 

S-  .OOOOOOE+OO 

SU  .449000E-03 

TIME 

= 10.00 

YR 

.780000E+02 

MON  .300000E+01 

DAY  .700000E+01 

HR  .lOOOOOE+02 

SO  .64100 

TAO 

.152000E+02 

WAO  .725000E-02 

TCO  .197378E+02 

TCI  .200232E+02 

TV  .26814 
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TG 

TAX 

TLT 

G26 

Q 

TIME 

YR 

TAG 

TG 

TAX 

TLT 

G26 

Q 

TIME 

YR 

TAG 

TG 

TAX 

TLT 

G26 

Q 

TIME 

YR 

TAG 

TG 

TAX 

TLT 

G26 

Q 

TIME 

YR 

TAG 

TG 

TAX 

TLT 

G26 

Q 

TIME 

YR 

TAG 

TG 

TAX 

TLT 

G26 

Q 

TIME 

YR 

TAG 

TG 

TAX 

TLT 

G26 

Q 

TIME 


.236936E+G2 
.228511E+02 
.18G8G3E-K)2 
.GOOGGGE+GG 
.GGGGGGE+GG 
= 11. GG 

.78GGGGE+G2 
.172GGGE+G2 
.264413E-K)2 
.24272GE+02 
.181G45E-K)2 
.GGGGGGE+GG 
.157197E-G4 
= 12.00 

.780000E+02 
.188000E+02 
.275890E+02 
.222695E+02 
.181526E+02 
.OOOOOOE+00 
.329459E-04 
= 13.00 

.780000E+02 
.201000E+02 
.288912E+02 
.242510E+02 
.182191E+02 
.OOOOOOE+00 
.237472E-04 
= 14.00 

.780000E+02 
.211000E+02 
.287845E+02 
. 22384 9E+02 
.182829E+02 
.OOOOOOE+00 
.364127E-04 
= 15.00 

.780000E+02 
.221000E+02 
.284738E+02 
.235000E+02 
.183865E+02 
.OOOOOOE+00 
.243361E-04 
= 16.00 

.780000E+02 
.228000E+02 
.275442E+02 
.230833E+02 
.184161E+02 
.OOOOOOE+00 
.244677E-04 
= 17.00 


TAI  . 22851 lE+02 
MAX  .OOOOOOE+00 
MLT  .OOOOOOE+00 
G29  .OOOOOOE+00 
S+  .OOOOOOE+00 

MON  .300000E+01 
WAG  .729000E-02 
TAI  .249201E+02 
MAX  .872444E+00 
MLT  .OOOOOOE+00 
G29  .OOOOOOE+00 
S+  .278432E-03 

MON  .300000E+01 
WAG  .719000E-02 
TAI  .233234E+02 
MAX  .182850E+01 
MLT  .OOOOOOE+00 
G29  .OOOOOOE+00 
S+  .434425E-03 

MON  .300000E+01 
WAG  .699000E-02 
TAI  .252569E+02 
MAX  .131797E+01 
MLT  .OOOOOOE+00 
G29  .OOOOOOE+00 
S+  .436044E-03 

MON  .300000E+01 
WAG  .677000E-02 
TAI  .235734E+02 
MAX  .202090E+01 
MLT  .OOOOOOE+00 
G29  .OOOOOOE+00 
S+  .492239E-03 

MON  .300000E+01 
WAG  .653000E-02 
TAI  .244388E+02 
MAX  .135066E+01 
MLT  .OOOOOOE+00 
G29  .OOOOOOE+00 
S+  .363527E-03 

MON  .300000E+01 
WAG  .626000E-02 
TAI  .239529E+02 
MAX  .135796E+01 
MLT  .OOOOOOE+00 
G29  .OOOOOOE+00 
S+  .332114E-03 


WAI  .172146E-01 
WAX  .172146E-01 
G13  .OOOOOOE+00 
GX  .OOOOOOE+00 
S-  .OOOOOOE+00 

DAY  .700000E+01 
TCO  .221718E+02 
WAI  .196021E-01 
WAX  .190522E-01 
G13  .OOOOOOE+00 
GX  .235796E+00 
S-  .OOOOOOE+00 

DAY  .700000E+01 
TCO  .223094E+02 
WAI  .179665E-01 
WAX  .171248E-01 
G13  .OOOOOOE+00 
GX  .494188E+00 
S-  .OOOOOOE+00 

DAY  .700000E+01 
TCO  .236749E+02 
WAI  .199930E-01 
WAX  .191284E-01 
G13  .OOOOOOE+00 
GX  .356208E+00 
S-  .OOOOOOE+00 

DAY  .700000E+01 
TCO  .231502E+02 
WAI  .182410E-01 
WAX  .172853E-01 
G13  .OOOOOOE+OO 
GX  .546190E+00 
S-  .OOOOOOE+OO 

DAY  .700000E+01 
TCO  .233527E+02 
WAI  .187805E-01 
WAX  .181015E-01 
G13  .OOOOOOE+OO 
GX  .365042E+00 
S-  .OOOOOOE+OO 

DAY  .700000E+01 
TCO  .231074E+02 
WAI  .183186E-01 
WAX  .177029E-01 
G13  .OOOOOOE+OO 
GX  . 36701 5E+00 
S-  .OOOOOOE+OO 


TGS  .191467E+02 
TLX  .180803E+02 
G15  .OOOOOOE+OO 
GCT  .OOOOOOE+OO 
SU  .641000E-03 

HR  .llOOOOE+02 
TCI  .224343E+02 
TGS  .190932E+02 
TLX  .185894E+02 
G15  .OOOOOOE+OO 
GCT  .OOOOOOE+OO 
SU  .778000E-03 

HR  .120000E+02 
TCI  .223758E+02 
TGS  .191437E+02 
TLX  .189092E+02 
G15  .OOOOOOE+OO 
GCT  .OOOOOOE+OO 
SU  .849000E-03 

HR  .130000E+02 
TCI  .237946E+02 
TGS  .193058E+02 
TLX  .189785E+02 
G15  .OOOOOOE+OO 
GCT  .OOOOOOE+OO 
SU  .851000E-03 

HR  .140000E+02 
TCI  .231434E+02 
TGS  .195594E+02 
TLX  .191402E+02 
G15  .OOOOOOE+OO 
GCT  .OOOOOOE+OO 
SU  .783000E-03 

HR  .150000E+02 
TCI  .234051E+02 
TGS  .198769E+02 
TLX  .190196E+02 
G15  .OOOOOOE+OO 
GCT  .OOOOOOE+OO 
SU  .650000E-03 

HR  .160000E+02 
TCI  .231228E+02 
TGS  .202236E+02 
TLX  .189946E+02 
G15  .OOOOOOE+OO 
GCT  .OOOOOOE+OO 
SU  .461000E-03 


TTK  .18080 
MLX  .00000 
G24  .00000 
E .17169 


SO  .77800 
TV  .29530 
TTK  .18104 
MLX  .87244 
G24  .23579 
E .21519 


SO  .84900 
TV  .29085 
TTK  .18152 
MLX  .18285 
G24  .49418 
E .18891 


SO  .85100 
TV  .30511 
TTK  .18219 
MLX  .13179 
G24  .35620 
E .24434 


SO  .78300 
TV  .29047 
TTK  .18282 
MLX  .20209 
G24  .54446 
E .22117 


SO  .65000 
TV  .28430 
TTK  .18386 
MLX  .13506 
G24  .36662 
E .25217 


SO  .46100 
TV  .27123 
TTK  .18416 
MLX  .13579 
G24  .36701 
E .26062 


YR  .780000E+02 
TAO  .228000E-K)2 
TG  .260550E+02 
TAX  .234044E-K)2 
TLT  .184385E-K)2 
G26  .OOOOOOE+OO 
Q .916268E-05 
TIME  = 18.00 

YR  .780000E-K)2 
TAO  .215000E+02 
TG  .233927E-K)2 
TAX  .206006E-K)2 
TLT  .1844488+02 
G26  .OOOOOOE+OO 
Q .OOOOOOE+OO 
TIME  = 19.00 

YR  .780000E+02 
TAO  .193000E+02 
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Figure  38. 

Solar  energy  outside,  solar  energy  collected,  solar  energy 
used,  and  fossil  energy  used  versus  time  of  day  for  solar 
greenhouse  system  example. 
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ARITH 


BR 

BRF(4,  ) 
CD(  , 7) 


CGH 

CLECR 

COOLR 

CXR 

DELT 

DTDT(  ) 

DTDTI ( ) 

DTDTO(  ) 
ERR 

ETOL 

FAN 

FTIME 

FTRACE 

GH 


Type  20  Arithmetic  Calculator  subroutine 

common  ratio  for  conduction  on  transfer  functions  in  Type 
14  Complicated  Greenhouse 

array  of  conduction  transfer  functions  for  Type  14  Com- 
pleted Greenhouse 

storage  array  used  by  Type  4 Thermostat.  The  first 
dimension  must  be  as  large  as  the  maximum  number  of  Type 
4 Thermostats  to  be  used  in  the  same  simulation,  and  the 
second  dimension  should  be  7. 

Type  14  Complicated  Greenhouse  subroutine 

Type  10  Solar  Collector  subroutine 

Type  18  Evaporative  Cooler  subroutine 

Type  23  Curtain  Heat  Exchanger  subroutine 

time  increment  between  simulation  times  (seconds) 

array  of  derivatives.  Data  stored  in  same  fashion  as  in 
OUTPUT. 

array  of  derivatives  from  an  individual  subroutine  model. 
Must  be  dimensioned  larger  than  the  number  of  derivatives 
in  the  subroutine  having  the  most  derivatives. 

storage  array  for  old  values  of  DTDT(  ) 

statement  number  to  be  executed  upon  an  error  return 
after  attempting  to  OPEN  a file 

relative  error  tolerance  for  convergence 

Type  6 Fan  or  Pump  subroutine 

Hewlett-Packard  RTE-IVB  operating  system  subroutine  for 
obtaining  the  actual  date  and  time  user  is  making  simula- 
tion run 

time  at  which  printing  of  all  inputs,  outputs,  and 
derivatives  of  all  units  for  every  iteration  will  begin. 
This  allows  tracing  of  input-output  connections  and  other 
error  detection. 

Type  5 Greenhouse  subroutine 


GH0LD(8) 

storage  array  used  by  Type  14  Greenhouse 

GHTIME 

time  storage  for  Type  14  Complicated  Greenhouse 

GS(3) 

soil  heat  fluxes  for  Type  14  Complicated  Greenhouse 

GS0LD(3) 

old  values  of  GS(  ) 

GSUM(4) 

array  of  sums  of  products  between  conduction  transfer 
functions  and  past  temperatures  for  Type  14  Complicated 
Greenhouse 

HEATR 

Type  16  Heater  subroutine 

HDELT 

half  of  BELT 

IBUF(  ) 

integer  array  buffer  for  storing  the  actual  data  and 
time  user  is  making  simulation  run 

ICFLAG 

flag  for  checking  convergence 

IDTDT 

index  for  derivatives 

IDTDTF 

first  subscript  for  derivatives 

IDTDTL 

last  subscript  for  derivatives 

lERR 

error  code 

IGUESS 

initial  guess  flag  used  by  Type  14  Greenhouse 

IIN 

index  for  inputs 

IINF 

first  subscript  for  input 

IINL 

last  subscript  for  input 

INDATA 

variable  code  name  of  file  or  device  where  input  data 
for  simulation  is  to  be  read 

INGTR 

Type  2 Integrator  subroutine 

INIT 

name  of  subroutine  for  initializing  system 

INSTN 

statement  number  to  execute  after  successful  load  of  a 
program  overlay  segment 

lOS 

error  code 

lOUT 

index  for  outputs 

lOUTF 

first  subscript  for  output 
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lOUTL 

IPAR 

IPARF 
IPARL 
ISU(  ) 

ITERD 
ITERO 
ITIME 
ITITLEC  ) 

ITMAX 
lUNIT 
IUSEG(  ) 


IV 

KARTYP(  , 


KLMIT 

KNVRG 

KNVRG2 


last  subscript  for  output 

index  for  parameters.  Also  integer  array  in  small  program 
segment  overlay  main  programs. 

first  subscript  for  parameter 

last  subscript  for  parameter 

array  of  unit  numbers  for  Type  2 Integrators.  Must  be 
dimensioned  larger  than  total  number  of  Integrators  in 
system. 

Iteration  counter  and  index  for  the  derivatives  loop 
iteration  counter  and  index  for  the  outputs  loop 
DO  loop  index  for  timer 

storage  array  for  title  of  simulation  run  (maximum  of  80 
characters) 

maximum  number  of  iterations 

DO  loop  index  for  identifying  particular  units 

Array  containing  the  number  of  the  program  overlay  seg- 
ment containing  the  subroutine  given  by  the  subscript, 
i.e. , if  IUSEG(5)  = 2,  then  the  subroutine  for  the  Type 
5 Greenhouse  is  in  Segment  2. 

flag  to  indicate  which  program  overlay  segment  is  in 
memory 

two  dimensional  array  containing  basic  programming 
information  about  each  type  of  device.  The  first  sub- 
script is  the  type  number.  The  second  has  the  following 
code : 

KARTYP  (ITYPE,  1)  - no.  parameters 

KARTYP  (ITYPE,  2)  - no.  inputs 

KARTYP  (ITYPE,  3)  - no  outputs 

KARTYP  (ITYPE,  4)  - no.  derivatives 

KARTYP  ( ,4)  - must  be  dimensioned  to  the  number  of 

types  for  the  first  subscript  and  4 for 
the  second 

variable  code  name  of  file  or  device  where  weather  data 
is  to  be  read  by  the  Type  1 Reader 

flag  for  checking  convergence 

flag  used  to  inhibit  calling  the  Type  2 Integrator  and 
the  Type  3 Printer  before  convergence  of  outputs  and 
derivatives  is  achieved 


KONECT(  ,2) 

two-dimensional  array  containing  the  unit  and  output 
number  that  the  inputs  of  a device  are  connected  to. 

The  first  subscript  denotes  in  consecutive  order  the 
inputs  for  the  first  unit,  then  the  second,  etc.,  as 
with  the  output  array.  The  second  subscript  is  either 
a 1 denoting  the  connecting  device  number  or  2 denoting 
the  output  number  of  that  particular  device. 

KOUT 

variable  code  name  of  file  or  device  where  output  data 
is  to  be  written 

KSUBS(NUNITS,4,2) 

three-dimensional  array  for  storing  the  first  and  last 
subscripts  which  indicate  where  the  data  are  stored  in 
the  OUTPUT,  KONECT,  PAR,  and  DTDT  arrays.  The  first 
subscript  is  the  unit  number.  The  code  for  the  second 
is:  1,  parameters;  2,  inputs;  3,  outputs;  4,  derivatives. 
The  code  for  the  third  is:  1 first  subscript,  2 last 
subscript . 

KTP 

index  for  type  of  device.  It  is  the  type  of  the  lUNIT 
th  unit. 

KTROL 

number  of  particular  Type  4 Thermostat  in  system 

KTYPE 

type  of  the  lUNIT  th  unit 

KTYPU(  ) 

array  of  type  numbers;  i.e.,  KTYPU(3)  is  the  type  of 
unit  3.  KTYPU  must  be  dimensioned  to  the  maximum  number 
of  units. 

LABEL (2,  , ) 

array  of  labels  for  Type  3 Printers.  The  second  subscript 
must  be  dimensioned  to  the  maximum  number  of  inputs 
(XIN(  )),  and  the  third  subscript  to  the  maximum  number 
of  Type  3 Printers  in  a system. 

LABU(  ) 

array  of  unit  numbers  for  Type  3 Printers.  Must  be 
dimensioned  to  maximum  number  of  Printers  in  system. 

LUTERM 

device  code  number  of  user's  terminal 

LXR 

Type  9 Latent  and  Sensible  Heat  Exchanger  subroutine 

MEBDI 

name  of  data  input  file  which  contains  all  the  informa- 
tion for  defining  a simulation  system. 

MEBV0 

name  of  program  overlay  segment  for  Subroutine  INIT 

MEBVl 

name  of  program  overlay  segment 

MEBV2 

name  of  program  overlay  segment 

MEBV3 

name  of  program  overlay  segment 

MITER 

maximum  number  of  iterations  before  Type  22  Multistage 
Thermostat  fixes  outputs 

MMAX 

maximum  number  of  conduction  transfer  functions  for 

Type  14  Complicated  Greenhouse 

MSTAT 

Type  22  Multistage  Thermostat  subroutine 

NAME(  ) 

integer  array  name  of  weather  data  file 

NAMED ( ) 

integer  array  name  or  device  code  where  output  of 
simulation  run  is  to  be  printed 

NDTDTS 

total  number  of  derivatives  from  all  devices 

NOUTS 

total  number  of  outputs  from  all  devices 

NPRT 

number  of  particular  Type  3 Printer  in  system 

NSRAD 

Type  17  Night  Sky  Radiator  subroutine 

NTGR 

number  of  particular  Type  2 Integrator  in  system 

NTIMES 

number  of  times  simulation  is  to  be  done 

NUNITS 

number  of  units  or  devices  connected  together  in  the 
system 

OLDIN(  ) 

array  of  outputs  from  previous  iteration.  Storage  is 
the  same  as  the  OUTPUT ( ) array.  OLDIN  is  used  to  test 

whether  the  inputs  to  an  individual  subroutine  have 
changed  since  the  previous  iteration. 

OPEN 

Hewlett-Packard  RTE-IVB  operating  system  subroutine  for 
opening  disk  files  or  devices 

OSTAT 

Type  21  On-Off  Thermostat  subroutine 

OUTI(  ) 

array  of  outputs  frpm  an  individual  subroutine  model 
must  be  dimensioned  larger  than  the  number  of  outputs 
required  by  the  individual  subroutine  having  the  most 
outputs . 

OUTOLD(  ) 

storage  array  for  old  values  of  output 

OUTPUT ( ) 

array  of  outputs  from  all  the  units,  stored  in  consecutive 
order  with  the  outputs  from  the  first  unit  first,  then 
those  from  the  second  unit,  etc.  If  a unit  has  no  outputs, 
it  is  skipped,  and  the  outputs  from  the  units  with  numbers 
on  each  side  of  the  unit  with  no  outputs  are  next  to  each 
other. 

PARC  ) 

array  of  parameters  for  all  the  units.  Data  stored  In  1 

same  fashion  as  in  OUTPUT  1 

PARK  ) 

array  of  parameters  from  an  individual  subroutine  model.  ' 

Must  be  dimensioned  larger  than  the  number  of  parameters 

required  by  the  subroutine  having  the  most  parameters.  ' 

PRNTR 

Type  3 Printer  subroutine  1 

PSTOR 

Type  24  Passive  Storage  subroutine  ; 

READR 

Type  1 Reader  subroutine 

1 

REL 

relative  error 

RMPAR 

1 

Hewlett-Packard  RTE-IVB  operating  system  subroutine 

for  getting  program  overlay  segment  parameters.  | 

i 

ROCK 

Type  19  Rock  Bed  subroutine 

RSVOR 

Type  13  Reservoir  subroutine 

SDA 

first  day  in  weather  data  file  for  start  of  simulation 

SEGLD 

Hewlett-Packard  RTE-IVB  operating  system  subroutine  for 
loading  program  overlay  segments 

SGH 

Type  15  Simple  Greenhouse  subroutine 

SHR 

first  hour  in  weather  data  file  for  start  of  simulation 

SMN 

first  month  in  weather  data  file  for  start  of  simulation 

STORXC  , ) 

accumulator  array  used  by  Type  2 Integrator.  The  first 
subscript  must  be  dimensioned  larger  than  the  maximum  number  I 

of  inputs  to  be  integrated,  and  the  second  larger  than  the 
total  number  of  Type  2 Integrators  in  the  system. 

STRACE 

1 

time  at  which  printing  all  inputs,  outputs,  and  deriva- 
tives will  stop 

SXR 

Type  8 Sensible  Heat  Exchanger  subroutine  ! 

1 

SYR 

First  year  in  weather  data  file  for  start  of  simulation  , 

(2  digit)  ! 

T(  ) 

array  of  time-dependent  variables  which  have  derivatives  ! 
to  be  evaluated.  Data  stored  in  same  fashion  as  in  ; 
OUTPUT.  j 

TAIOLD 

1 

old  value  of  inside  greenhouse  air  temperature  used  by  ! 

Type  5 Greenhouse 
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TANK 

Type  11  Tank  subroutine 

TC  ( ) 

temporary  storage  array  for  corrected  T's 

TCOLD 

old  value  of  cover  temperature  used  by  Type  5 Greenhouse 

TCOV 

cover  temperature  for  Type  17  Night  Sky  Radiator 

TD 

soil  temperature  at  great  depth  in  Type  14  Complicated 
Greenhouse 

TEE 

Type  7 Tee  subroutine  subroutine 

TG0OLD 

array  of  past  soil  surface  temperatures  in  Type  14  Com- 
plicated Greenhouse 

TGSOLD 

array  of  past  soil  storage  temperatures  in  Type  14  Com- 
plicated Greenhouse 

TI  ( ) 

array  of  dependent  variables  requiring  Integration  to  an 
individual  subroutine  model.  Must  be  dimensioned  larger 
than  the  number  of  derivatives  in  the  subroutine  having 
the  most  derivatives. 

TIME 

elapsed  time  since  start  of  simulation  (hours) 

TIMFN 

Type  12  Time  Function  subroutine 

TIMMST 

time  storage  for  Type  22  Multistage  Thermostat 

TMS(  ,5)  Storage  for  Type  22  Multistage  Thermostats.  The 


first  subscript  should  be  dimensioned  to  the  maximum 
number  of  set  points » and  the  second  dimension  should 
be  5. 

TOLD(  ) 

storage  array  for  old  values  of  T(  ) 

TSTAT 

Type  4 Thermostat  subroutine 

TSUR 

surface  temperature  for  Type  17  Night  Sky  Radiator 

WAIOLD 

old  value  of  Inside  air  humidity  ratio  used  by  Type  5 
Greenhouse 

XIN(  ) 

array  of  inputs  to  an  individual  subroutine  model.  Must 
be  dimensioned  larger  than  the  number  of  inputs  required 
by  the  individual  subroutine  having  the  most  inputs. 

XOLD(  , ) Storage  array  used  by  Type  2 Integrator.  Dimensioned 

like  STORX(  , ) 
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Type 

Device  or  Program 

Subroutine  or 
File  Name 

Main  Executive  Program 

MEBM 

Initialization 

INIT 

1 

Reader 

READR 

2 

Integrator 

INGTR 

3 

Printer 

PRNTR 

4 

Thermostat 

TSTAT 

5 

Greenhouse 

GH 

6 

Pump  or  Fan 

FAN 

7 

Tee 

TEE 

8 

Sensible  Heat  Exchanger 

SXR 

9 

Latent  and  Sensible  Heat  Exchanger 

LXR 

10 

Solar  Collector 

CLECR 

11 

Water  Tank 

TANK 

12 

Time  Dependent  Forcing  Function 

TIMFN 

13 

Reservoir 

RSVOR 

14 

Complicated  Greenhouse 

CGH 

15 

Simple  Greenhouse 

SGH 

16 

Heater 

HEATR 

17 

Night  Sky  Radiator 

NSRAD 

18 

Evaporative  Air  Cooler 

COOLR 

19 

Rock  Bed  Thermal  Storage 

ROCK 

20 

Arithmetic  Calculator 

ARITH 

21 

On-Off  Thermostat 

OSTAT 

22 

Multistage  Thermostat 

MSTAT 

23 

Curtain  Heat  Exchanger 

CXR 

24 

Passive  Storage 

PSTOR 

Data  input  file  of  simulation  information 

MEBDI 

I 
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2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


$FILES(2,3) 

PROGRAM  MEBM(3) 

C 

C MODULAR  ENERGY  BALANCE  MODEL 

C 

C MAIN  PROGRAM.  PROGRAMMED  BY  B.  A.  KIMBALL,  U.  S.  WATER 

C CONSERVATION  LABORATORY,  PHOENIX,  ARIZONA.  1979. 

C 

COMMON  TIME,XIN(40),0UTI(80),TI(10),DTDTI(10),PARI(99) 

COMMON  ETOL , ITMAX , NTIMES , FTRACE , STRACE , DELT , HDELT 
COMMON  NOUTS , NDTDTS , NUNITS 

COMMON  KTYPU(40),KSUBS(40,4,2),KONECT(200,2),PAR(350) 

COMMON  OUTPUT(200) ,0UT0LD(200) ,OLDIN(200) 

COMMON  T(20) ,T0LD(20) ,TC(20) ,DTDT(20) ,DTDTO(20) 

COMMON/ STRT/ SYR , SMN , SDA , SHR 
COMMON/LABI /KARTYP (40,4), lUSEG ( 40 ) 

COMMON/FILES/ INDATA , KLMIT , KOUT , LUTERM 
C0MM0N/STRGE/ST0RX(4,20),X0LD(4,20),ISU(4) 

COMMON/GHMN/TAIOLD , TCOLD , WAIOLD 

C0MM0N/CGHMN/GH0LD(8) ,MMAX,BR,GS(3) ,GS0LD(3) ,GSUM(4) ,TD, 

1 BRF(4,24) ,TGOOLD(26) ,TGSOLD(26) ,GHTIME 

COMMON/NSR/TCOV , TSUR 
COMMON/LB/LABEL ( 2 ,40,5), LABU( 5 ) 

COMMON/CNTRL/CD  U 0 , 8 ) 

COMMON/MSTOR/ TMS ( 1 0 , 5 ) , TIMMST , MITER 
C 

covovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovov 

C INITIALIZE  THE  NAMES  OF  THE  PROGRAM  SEGMENTS 

DIMENSION  MEBV0(3) ,MEBV1(3) ,MEBV2(3) ,MEBV3(3) 

DATA  MEBV0/2HME,2HBV,2H0  / 

DATA  MEBV1/2HME,2HBV,2H1  / 

DATA  MEBV2/2HME,2HBV,2H2  / 

DATA  MEBV3/2HME,2HBV,2H3  / 

C 

C LOAD  SEGMENT  WITH  SR  INIT 

ASSIGN  100  TO  INSTN 
CALL  SEGLD(MEBVO,IERR, INSTN) 

WRITE (KOUT, 430)  lERR 

430  FORMAT(”  ERROR", 13,"  IN  ATTEMPT  TO  LOAD  INITIALIZATION  SEGMENT") 
STOP 
C 

C INITIALIZE  CONDITIONAL  SEGMENT  LOAD  FLAG 

100  IV=0 

covovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovov 

c 

C INITIALIZE  RUN  PARAMETERS 

CALL  INIT 
C 

C START  LOOP  FOR  TIMES 

DO  999  ITIME=1, NTIMES 


PAGE 


2 


MEBM 


OPTS ; LYI 


10:43  AM  TUE.,  30  NOV.,  1982 


52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 


TIME=FL0AT(ITIME-l)*DELT/3600. 

IF ( TIME . GE . FTRACE . AND . TIME . LE . STRACE ) WRITE (KOUT , 231 ) ITIME , TIME 

231  FORMATC"  "//"  TIME  ”,I4,"  = ”,F10.2) 

C 

C COMPUTE  PREDICTED  VALUE  OF  T 

IF(NDTDTS.EQ.O)  GOTO  202 
DO  201  IDTDT=1,NDTDTS 
TOLD ( IDTDT ) =T ( I DTDT ) 

DTDTO(IDTDT)^DTDT(IDTDT) 

T ( IDTDT )=TOLD( IDTDT)  + DELT*DTDTO( IDTDT) 

IF ( TIME . GE . FTRACE . AND . TIME . LE . STRACE ) WRITE (KOUT , 232 ) IDTDT , T( IDTDT ) 

232  FORMATC”  T PRED  (",I2,”)=”,E14.6) 

201  CONTINUE 
C 

202  IF ( TIME. GE. FTRACE  .AND.  TIME. LE. STRACE)  WRITE (LUTERM, 233) 

233  FORMATC"  lUNIT  ITERO  ITERD") 

C 

C START  OUTER  LOOP  FOR  OBTAINING  CONVERGENCE  OF  DERIVATIVEQ 

KNVRG2=1 
ITERD=0 

200  ITERD=ITERD  + 1 
C 
C 

C START  INNER  LOOP  FOR  CONVERGENCE  OF  OUTPUTS 

ITER0=0. 

300  ITER0=ITERCH-1 
C 
C 

C START  LOOP  FOR  CALLING  EACH  UNIT  IN  SEQUENCE 

DO  319  IUNIT=1,NUNITS 
C 

C GET  THE  TYPE  OF  UNIT 

KTYPE=KTYPU ( lUNIT ) 

C 

C ONLY  CALL  THE  TYPE  1 READER  ONCE  FOR  EACH  TIME 

IFCKTYPE.EQ.l  .AND.  ITERD. GT.l)  GOTO  319 
IFCKTYPE.EQ.l  .AND.  ITERD. EQ.l  .AND.  ITERO. GT.l)  GOTO  319 
C 

C DON’T  CALL  TYPE  2 INTEGRATORS  OR  TYPE  3 PRINTERS  UNLESS 

C HAVE  CONVERGENCE,  AND  IF  HAVE  CONVERGENCE,  THEN  DON'T 

C CALL  ANY  OTHER  DEVICE  TYPES. 

IF (KNVRG2.lt. 3 .AND.  KTYPE.EQ.2)  GOTO  319 
IF (KNVRG2.lt. 3 .AND.  KTYPE.EQ.3)  GOTO  319 
IF(KNVRG2.GE.3  .AND.  KTYPE.NE.2  .AND.  KTYPE.NE.3)  GOTO  319 
C 

IF ( TIME . GE . FTRACE . AND . TIME . LE . STRACE ) 

1 WRITE ( LUTERM , 340 ) lUNIT , ITERO , ITERD 

340  FORMATC IX, 313) 

IF (TIME.GE. FTRACE  .AND.  TIME . LE . STRACE ) 

1 WRITE (KOUT, 341)  lUNIT , ITERO , ITERD 
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102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 


341  FORMAT(/"  IUNIT=”,I3, ” ITER0=",I3,"  ITERD=",I3) 

C 

C 

C GET  THE  INPUTS  FOR  THE  lUNIT  TH  UNIT.  THEY  ARE  CONNECTED 

C TO  THE  OUPUTS  OF  OTHER  UNITS  AS  DEFINED  BY  THE  KONECT  ARRAY. 

IINF=KSUBS ( lUNIT ,2,1) 

C IF  DEVICE  HAS  NO  INPUTS,  ONLY  CALL  ON  FIRST  OUTPUT  ITERATION 

IF(IINF.EQ.-1  .AND.  ITERO.GT.l)  GOTO  319 
IF(IINF.EQ.-l)  GOTO  302 
IINL=KSUBS ( lUNIT ,2,2) 

ICFLAG=fl 

DO  301  IIN=IINF,IINL 

C IDV  IS  DEVICE  WHOSE  OUTPUT  IS  CONNECTED  TO  lUNIT 

IDV=K0NECT(IIN,1) 

C IDVO  IS  OUTPUT  NO.  OF  OUTPUT  OF  DEVICE  THAT  IS 

C CONNECTED  TO  lUNIT 

IDV0=K0NECT(IIN,2) 

KS=KSUBS(IDV,3,1)  + IDVO  -1 
XIN ( I IN-IINF+1 )=OUTPUT ( KS ) 

C 

C CHECK  TO  SEE  IF  INPUTS  TO  lUNIT  TH  UNIT  CHANGED  SINCE  LAST 

C ITERATION. 

IF(ITERO.EQ.l)  GOTO  301 
IF(ABS(OUTPUT(KS)).LE.1.E-10)  GOTO  332 
REL  = ABS((OUTPUT(KS)-OLDIN(KS))/OUTPUT(KS)) 

IF(REL  .GT.  ETOL)  ICFLAG  = -1 
GOTO  301 

332  IF(ABS(OUTPUT(KS)-OLDIN(KS)).GT.  ETOL)  ICFLAG=  -1 

301  CONTINUE 
C 

C IF  NO  CHANGES  IN  INPUTS  DON'T  CALL  THIS  UNIT 

C EXCEPTIONS;  ALL  UNITS  CALLED  FIRST  AND  SECOND  ITERATIONS 

IF ( ICFLAG. EQ.l  .AND.  ITER0.GT.2)  GOTO  319 
II=IINL“IINF+1 

IF(TIME.GE.FTRACE  .AND.  TIME.LE.STRACE) 

1 WRITE (KOUT, 323 )(IIN,XIN(IIN),IIN=1, II) 

323  FORMATC'  INPUTS'7(1H  ,5(I4,E12.6))) 

C 

C GET  THE  VALUES  OF  THE  VARIABLES  WHICH  HAVE  DERIVATIVES  FOR  THE 

C lUNIT  TH  UNIT. 

302  IDTDTF=KSUBS(IUNIT,4,1) 

IF(IDTDTF.EQ.-l)  GOTO  305 
IDTDTL=KSUBS( lUNIT ,4,2) 

DO  306  IDTDT=IDTDTF,IDTDTL 
TI ( IDTDT-IDTDTF+1 )=T( IDTDT) 

306  CONTINUE 
C 

C GET  THE  PARAMETERS  FOR  THE  lUNIT  TH  UNIT 

305  IPARF=KSUBS(IUNIT,1,1) 

IF(IPARF.EQ.-l)  GOTO  304 
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152  1PARL-KSUBS(IUM1T,1,2) 

153  DO  303  lPAR*lPARP,lPARt 

154  PAR1(1PAR-IPARP+1)*PAB(1PAR) 

155  303  COMTIMUE 

156  C 

157  covovovovovovovovovovovovovovovovovovovofoVovoVovoVotovotofotovotofotov 


158 

C 

CHECK  WHETHER  THE  PROGAM  SEGMENT  IM  MEMORY  COMTAlMS  THE  SR 

159 

C 

POR  THE  PARTICULAR  UNIT 

160 

304 

1P(1USEG(KTYPE).EQ.1V)  GOTO  339 

.161 

C 

LOAD  APPROPRIATE  PROGRAM  SEGMEIIT 

162 

ASSIGN  339  TO  INSTN 

163 

GOTO  (401,402,403)  lOSEG(KTtPE) 

164 

401 

IV^l 

165 

CALL  SE6LD(MEBV1 , lERR, INSTN) 

166 

GOTO  420 

167 

402 

1V*2 

168 

CALL  SEGLD(MEBV2,1ERR, INSTN) 

169 

GOTO  420 

170 

403 

1V*3 

171 

CALL  SEGLD(MEBV3,1ERR, INSTN) 

172 

GOTO  420 

173 

420 

WR1TE(K0UT,421)  lERR,IUSEG(KTtPE) ,KTtPE 

174 

421 

PORMATC*  ERROR”, 14,"  IN  ATTEMPT  TO  LOAD  SEGMENT", 13, 

175 

] 

L " POR  A TYPE", 13,"  DEVICE") 

176 

STOP 

177  covovovovovovovovovovovovovovovovovovovovovofovofovofovoiovotofofoto^ov 

178 

C 

179 

c 

CALL  THE  SUBROUTINE  POR  THE  PARTICULAR  TYPE  OP  UNIT 

180 

339 

GOTO  (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22, 

181 

] 

L 23,24)  KTYPE 

182 

C 

183 

1 

CALL  READR 

184 

GOTO  310 

185 

2 

CALL  INGTR 

186 

GOTO  310 

187 

3 

CALL  PRNTR 

188 

GOTO  310 

189 

4 

CALL  TSTAT 

190 

GOTO  310 

191 

5 

CALL  6H 

192 

GOTO  310 

193 

6 

GALL  PAN 

194 

GOTO  310 

195 

7 

CALL  TEE 

196 

GOTO  310 

197 

8 

CALL  SXR 

198 

GOTO  310 

199 

9 

CALL  LXR 

200 

GOTO  310 

201 

10 

CALL  CLECR 
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202 

GOTO 

310 

203 

11 

CALL 

TANK 

204 

GOTO 

310 

205 

12 

CALL 

TIMFN 

206 

GOTO 

310 

207 

13 

CALL 

RSVOR 

208 

GOTO 

310 

209 

14 

CALL 

CGH 

210 

GOTO 

310 

211 

15 

CALL 

SGH 

212 

GOTO 

310 

213 

16 

CALL 

HEATR 

214 

GOTO 

310 

215 

17 

CALL 

NSRAD 

216 

GOTO 

310 

217 

18 

CALL 

COOLR 

218 

GOTO 

310 

219 

19 

CALL 

ROCK 

220 

GOTO 

310 

221 

20 

CALL 

ARITH 

222 

GOTO 

310 

223 

21 

CALL 

OSTAT 

224 

GOTO 

310 

225 

22 

CALL 

MSTAT 

226 

GOTO 

310 

227 

23 

CALL 

CXR 

228 

GOTO 

310 

229 

24 

CALL 

PSTOR 

230 

GOTO 

310 

231 

C 

LYI 
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310 


232  C 

233 

234 

235 

236 
iyi 

238 

239 

240 

241 

242 

243  C 

244  C 

245 

246 

247 

248 

249 

250 

251  222 


322 


311 


312 


STORE  THE  INDIVIDUAL  OUTPUTS 
IOUTF=KSUBS ( lUNIT , 3 , 1 ) 

IF(IOUTF.EQ.-l)  GOTO  312 
IOUTL=KSUBS ( lUNIT ,3,2) 

II=IOUTL-IOUTF+l 

IF(TIME.GE.FTRACE  .AND.  TIME.LE.STRACE) 

L WRITE (KOUT , 322 ) ( lOUT , OUTI ( lOUT) , IOUT=l , II ) 

FORMATC”  0UTPUTS’7(1H  , 5(I4 ,E12 . 6) ) ) 

DO  311  IOUT=IOUTF , lOUTL 
OUTPUT ( lOUT ) =OUTI ( IOUT-IOUTF+1 ) 

CONTINUE 

STORE  THE  INDIVIDUAL  DERIVATIVES 
IDTDTF=KSUBS ( lUNIT ,4,1) 

IF(IDTDTF.EQ.-l)  GOTO  319 
IDTDTL=KSUBS( lUNIT ,4,2) 

II=IDTDTL-IDTDTF+1 

IF(TIME.GE.FTRACE  .AND.  TIME.LE.STRACE) 

L WRITE ( KOUT , 2 2 2 ) ( I DTDT , T I ( I DTDT ) , DTDT I ( I DTDT ) , IDTDT=1 , 1 1 ) 

FORMATC”  T DTDT"/2(2X,I4,2E13.6)) 
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252  DO  313  IDTDT=IDTDTF , IDTDTL 

253  DTDT(IDTDT)=DTDTI(IDTDT-IDTDTF+1) 

254  313  CONTINUE 

255  C 

256  319  CONTINUE 

257  C 

258  C 

259  IF(KNVRG2.EQ.3)  GOTO  999 

260  C 

261  C TEST  FOR  CONVERGENCE  OF  THE  OUTPUTS 

262  KNVRG=H-1 

263  DO  330  I0UT=1,N0UTS 

264  IF(ABS(OUTPUT(IOUT)).LE.  l.E-10)  GOTO  320 

265  REL=ABS( ( OUTPUT (lOUT)  - OUTOLD(IOUT)) /OUTPUT (lOUT)) 

266  IF(REL.GT.ETOL)  KNVRG=-1 

267  GOTO  321 

268  320  IF(ABS(OUTPUT(IOUT)-OUTOLD(IOUT)).GT.ETOL)  KNVRG=-1 

269  C TEST  MADE  - UPDATE  OLD  VALUES  OF  OUTPUT 

270  321  OLDIN(IOUT)=OUTOLD(IOUT) 

271  OUTOLD(IOUT)=OUTPUT(IOUT) 

272  330  CONTINUE 

273  C 

274  C IF  KNVRG^fl,  CONVERGENCE  OF  OUPUTS  IS  ATTAINED.  GO  BACK  TO 

275  C OUTER  LOOP 

276  IF(KNVRG.EQ.+1)  GOTO  210 

277  C IF  KNVRG=-1,  CONVERGENCE  NOT  ATTAINED.  CHECK  NO.  OF  ITERATIONS 

278  C AND  GO  BACK. 

279  IF(ITERO.LT.ITMAX)  GOTO  300 

280  WRITE (KOUT, 331)  TIME , ITERD , ITERO 

281  331  FORMAT("  ***WARNING  CONVERGENCE  NOT  ATTAINED  AT  TIME  = ",F10.3/ 

282  1 12X, "DERIVATIVE  ITERATIONS  = ",15/ 

283  2 12X, "OUTPUT  ITERATIONS  = ",I5) 

284  GOTO  210 

285  C 

286  C 

287  C COMPUTE  CORRECTED  VALUES  OF  DEPENDENT  VARIABLES  WHICH  HAVE 

288  C DERIVATIVES 

289  210  IF(NDTDTS.EQ.O)  GOTO  998 

290  DO  211  IDTDT=1,NDTDTS 

291  IF(ITIME.GT.l) 

292  1 TC(IDTDT)=TOLD(IDTDT)  + HDELT*(DTDT(IDTDT)  + DTDTO(IDTDT)) 

293  IF(ITIME.EQ.l)  TC(IDTDT)  = TOLD(IDTDT)  + DELT*DTDT(IDTDT) 

294  211  CONTINUE 

295  C 

296  C TEST  FOR  CONVERGENCE  OF  OUTER  DERIVATIVE  LOOP 

297  KNVRG=+1 

298  DO  230  IDTDT=1 ,NDTDTS 

299  IF(ABS(TC(IDTDT)).LE.  l.E-10)  GOTO  220 

3 00  REL=AB  S ( ( TC ( I DTDT ) -T ( I DTDT ) ) / TC ( I DTDT ) ) 

301  IF(REL.GT.ETOL)  KNVRG=-1 


178 


I 

1 
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302  GOTO  221 

303  220  IF(ABS(TC(IDTDT)-T(IDTDT)).GT.ETOL)  KNVRG=-1 

304  C TEST  COMPLTETED,  UPDATE  CORRECTED  VALUES 

305  221  T(IDTDT)=TC(IDTDT) 

306  230  CONTINUE 

307  C 

308  C IF  KNVRG=-1,  CONVERGENCE  OF  DERIVATIVES  NOT  ATTAINED.  CHECK 

309  C NO.  OF  ITERATIONS  AND  GO  BACK. 

310  998  IF(KNVRG.EQ.+1)  KNVRG2=KNVRG2+1 

311  IF(ITERD.LT.ITMAX)  GOTO  200 

312  WRITE (KOUT, 331)  TIME,ITERD,ITERO 

313  C 

314  C 

315  999  CONTINUE 

316  C 

317  STOP 

318  END 
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319  C 

320  BLOCK  DATA  MEBBD 

321  COMMON/STRT/SYR,SMN,SDA,SHR 

322  COMMON/LABI /KARTYP (40,4), IUSEG( 40 ) 

323  COMMON/FILES / INDATA, KLMIT , KOUT , LUTERM 

324  COMMON/STRGE/STORX(4,20),XOLD(4,20),ISU(4) 

325  COMMON/GHMN/TAIOLD , TCOLD , WAIOLD 

326  C0MM0N/CGHMN/GH0LD(8) ,MMAX,BR,GS(3) ,GS0LD(3) ,GSUM(4) ,TD, 

327  1 BRF(4,24),TGOOLD(26),TGSOLD(26),GHTIME 

328  COMMON/NSR/TCOV,TSUR 

32  9 COMMON/LB/LABEL( 2 ,40,5), LABU ( 5 ) 

330  COMMON/CNTRL/CD(10,8) 

331  COMMON/MSTOR/TMS (10,5), TIMMST , MITER 

332  C 

333  C INITIALIZE  I/O  FILE  NAMES  AND  NOS 

334  DATA  INDATA/1/ ,KLMIT/2/ ,K0UT/6/ ,LUTERM/7/ 

335  C 

336  C INITIALIZE  ARRAY  OF  CHARACTERISTICS  OF  THE  VARIOUS  TYPES  OF 

337  C DEVICES  IN  THE  ORDER  BY  LINE  - NO.  PARAl^TERS,  NO.  INPUTS, 

338  C NO.  OUTPUTS,  NO.  DERIVATIVES 


339 

C 

TYPE 

NO 

1 2 

3 

4 5 

6 

7 8 9 10  11 

12  13  14 

15  16  17  18  19  20 

340 

C 

OR 

21  22 

23 

24  25  : 

26 

27  28  29  40  31 

32  33  34 

35  36  37  38  39  80 

341 

DATA  KARTYP/ 

342 

p 

0,  3, 

4. 

3,99, 

1. 

1,  4,12,12,12, 

99,81,76, 

18,  3,17,  2,  8,99, 

343 

p 

2,42, 

2. 

4,  0, 

0. 

0,  0,  0,  0,  0, 

0,  0,  0, 

0,  0,  0,  0,  0,  0, 

344 

I 

0,40, 

40, 

2,40, 

4. 

7,  5,  8,  8,  6, 

0,  0,40, 

40,  4,  9,  5,10,40, 

345 

I 

2,  1, 

5, 

3,  0, 

0. 

0,  0,  0,  0,  0, 

0,  0,  0, 

0,  0,  0,  0,  0,  0, 

346 

0 

23,40, 

0, 

2,80, 

3, 

6,  6,  7,  5,  8, 

2,80,80, 

6,  3,  8,  4,21,  2, 

347 

0 

2,40, 

6, 

5.  0, 

0, 

0,  0,  0,  0,  0, 

0,  0,  0, 

0,  0,  0,  0,  0,  0, 

348 

D 

0,  0, 

0. 

0,10, 

0. 

0,  0,  0,  0,10, 

0,  0,  0, 

0,  0,  0,  0,10,  0, 

349 

D 

0,  0, 

0, 

1,  0, 

0, 

0,  0,  0,  0,  0, 

0,  0,  0, 

0,  0,  0,  0,  0,  0/ 

350 

C 

351 

covovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovov 

352 

c 

INITIALIZE  PROGRAM 

SEGMENT  NO.  EACH 

UNIT  IS  IN 

353 

DATA  lUSEG/ 

354 

s 

1,  1. 

1, 

1,  2, 

1. 

1,  2,  1,  2,  1, 

1.  1,  3, 

2,  1,  2,  1,  2,  1, 

355 

s 

1,  1, 

1, 

1,  0, 

0, 

0,  0,  0,  0,  0, 

0 , 0 , 0 , 

0,  0,  0,  0,  0,  0/ 

356  COVOVOVOVOVOVOVOVOVOVOVO VOVO VO VOVOVO VO VO VO VO VO VO VO VOVOVO VOVO VOVOVOVOVOV 

357  C 

358  END 
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covovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovov 

PROGRAM  MEBV0(5) 

DIMENSION  IPAR(5) 

CALL  RMPAR(IPAR) 

INSTN=IPAR(1) 

GOTO  INSTN 
END 
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2 FTN. 


9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 


COVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOV 

c 

SUBROUTINE  INIT 
C 

C THIS  SUBROUTINE  READS  THE  INFORMATION  ABOUT  THIS 

C PARTICULAR  RUN  IN  FROM  A DISK  FILE,  AND  INITIALIZES 

C ALL  THE  VARIABLES  HAVING  TO  DO  WITH  THE  TIMES  OF  THE 

C SIMULATION,  THE  NUMBER  OF  DEVICES  OR  UNITS  AND  THE  TYPE  OF 

C EACH,  ETC. 

C 

C PROGRAMMED  BY  B.  A.  KIMBALL,  U.  S.  WATER  CONSERVATION 

C LABORATORY,  PHOENIX,  ARIZONA.  1979. 

C 

COMMON  TIME,XIN(40),0UTI(80),TI(10),DTDTI(10),PARI(99) 

COMMON  ETOL , ITMAX , NTIMES , FTRACE , STRACE , DELT , HDELT 
COMMON  NOUTS,NDTDTS,NUNITS 

COMMON  KTYPU(40),KSUBS(40,4,2),K0NECT(200,2),PAR(350) 

COMMON  OUTPUT (200), OUTOLD ( 200 ) , OLDIN ( 200 ) 

COMMON  T(20) ,T0LD(20) ,TC(20) ,DTDT(20) ,DTDTO(20) 

COMMON/ STRT/ SYR , SMN , SDA, SHR 
COMMON/LAB 1 /KARTYP ( 4 0 , 4 ), lUSEG ( 4 0 ) 

COMMON/FILES/INDATA, KLMIT , KOUT , LUTERM 
COMMON/ STRGE/ STORX( 4 , 20 ) , XOLD (4,20),ISU(4) 

COMMON/GHMN/TAIOLD , TCOLD , WAIOLD 

COMMON/CGHMN/GHOLD ( 8 ) ,MMAX , BR , GS ( 3 ) , GSOLD( 3 ) , GSUM( 4 ) , TD , 

1 BRF ( 4 , 2 4 ) , TGOOLD ( 2 6 ) , TGSOLD ( 2 6 ) , GHT IME 

COMMON/NSR/TCOV , TSUR 
COMMON/LB /LABEL ( 2 ,40,5), LABU( 5 ) 

COMMON/ CNTRL/CD( 10,8) 

COMMON/MSTOR/TMS (10,5), TIMMST , MITER 

DIMENSION  ITITLE(40),NAME(10),NAME0(10),IBUF(15),KWRT(60,2) 

C 

C INITIALIZE  ERROR  TOLERANCE  FOR  CONVERGENCE,  MAX.  NO.  OF 

C ITERATIONS 

ETOL=.01 
ITMAX=20 
C 

C INPUT  FILE  OF  SIMULATION  RUN  PARAMETERS  AND  CHARACTERISTICS 

OPEN ( INDATA, FILE= ’ MEBDI ’ , IOSTAT=IOS , ERR=52 ) 

GOTO  54 

52  WRITE (LUTERM, 53)  lOS 

53  FORMAT ("  MEBDI  OPEN  ERROR  = ",I4) 

C READ  HEADING  AND  WEATHER  AND  OUTPUT  FILE  NAMES 

54  READ(INDATA,202)(ITITLE(I) ,1=1,40) 

202  FORMAT(40A2) 

C WEATHER  DATA  FILE  NAME 

READ ( INDATA , 200 ) ( NAME ( I ) , I = 1 , 1 0 ) 

200  FORMAT (10A2) 

C OUTPUT  FILE  NAME 

READ( INDATA, 200) (NAMEO(I) , 1=1 , 10) 
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59  C OPEN  WEATHER  DATA  FILE 

60  OPEN(KLMIT , FILE=NAME , IOSTAT=IOS , ERR=55 ) 

61  GOTO  57 

62  55  WRITE (LUTERM, 56)  (NAME(I) ,1=1,10) ,I0S 

63  56  F0RMAT(1H  ,10A2,"  OPEN  ERROR  ",I4) 

64  C OPEN  OUTPUT  FILE  OR  DEVICE 

65  57  IF(NAMEO(l).EQ.KOUT)  GOTO  60 

66  OPEN(KOUT,FILE=NAMEO,IOSTAT=IOS,ERR=58) 

67  GOTO  59 

68  58  WRITE (LUTERM, 56)  (NAMEO(I) ,1=1 , 10) , lOS 

69  C ERASE  ANY  OUTPUT  FROM  A PREVIOUS  RUN 

70  59  REWIND  KOUT 

71  60  ENDFILE  KOUT 

72  C 

73  C WRITE  HEADINGS 

74  WRITE (KOUT, 201) 

75  201  FORMAT (2 OX, "MODULAR  ENERGY  BALANCE  SIMULATION"/"  ") 

76  WRITE (KOUT, 203 ) (ITITLE(I) , 1=1 , 40) 

77  203  FORMAT(1X,40A2) 

78  C GET  TIME  AND  DATE  OF  RUN  AND  OUTPUT 

79  CALL  FTIME(IBUF) 

80  WRITE (KOUT, 204)  (IBUF(I) , 1=1 , 15) 

81  204  FORMAT("  RUN  AT  ",15A2) 

82  WRITE(K0UT,190)(NAME(I),I=1,10) 

83  190  FORMAT r'  WEATHER  DATA  FROM  FILE  ",10A2/) 

84  C 

85  C 

86  C 

87  C 

88  C 

89  C 

90  C 

91 

92  C 

93  C 

94 

95 

96  205 

97 

98 

99 
100 
101 

102  C 

103 

104 

105  C 

106 

107 

108 


GET  YEAR(2  DIGIT),  MONTH,  DAY,  AND  HOUR  (FRACTIONAL) 

WHEN  THE  READER  IS  START  PROVIDING  DATA  FROM  THE  KLMIT 
FILE.  ALSO  GET  THE  TIME  INCREMENT 

BETWEEN  TIMES  (HOURS),  NO.  OF  TIMES  SIMULATION  IS  TO  BE  DONE, 
TIME  OF  FIRST  TRACE,  AND  TIME  TO  STOP  TRACE 
READ ( INDATA , * ) SYR , SMN , SDA , SHR , DELT , NTIMES , FTRACE , STRACE 

GET  NUMBER  OF  UNITS 
READ (INDATA,*)  NUNITS 

WRITE ( KOUT , 205 ) SYR , SMN , SDA , SHR , DELT , NTIMES , FTRACE , STRACE , NUNITS 
FORMATC*  STARTING  YR=",F3.0,"  MN=",F3.0,"  DY=",F3.0,"  HR=",F6.2// 

1 " INCREMENT  = ",F8.2,"  HOURS"/ 

2 "NO.  TIMES  = ",18/ 

3 " FIRST  TRACE=  ",F8.2,"  HOURS"/ 

6 " LAST  TRACE=  ",F8.2,"  HOURS"/ 

4 "NO.  UNITS  = ",I8/) 

DELT=DELT*3600. 

HDELT=DELT/2. 

NTGR=0 

NPRT=0 

KTROL=0 
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109  C 

110  C INITIALIZE  LOWER  SUBSCRIPT  NUMBER  FOR  EACH  UNIT  IN  THE 

111  C OUTPUT,  KONECT,  DTDT,  AND  PAR  ARRAYS 

112  I0UTL=0 

113  IINL=0 

114  IDTDTL=0 

115  IPARL=0 

116  C 

117  DO  999  IUNIT=1,NUNITS 

118  C 

119  C GET  THE  TYPE  NUMBER  FOR  EACH  UNIT 

120  RE AD (INDATA,*)  KTYPU(IUNIT) 

121  KTP=KTYPU(IUNIT) 

122  G0T0(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 


123  1 23,24)  KTP 

124  1 WRITE (KOUT, 501)  IUNIT,KTP 

125  501  FORMATC/"  UNIT  ",12,"  IS  A 

126  GOTO  206 

127  2 WRITE (KOUT, 502)  IUNIT,KTP 

128  502  FORMAT(/"  UNIT  ",I2,"  IS  A 

129  GOTO  206 

130  3 WRITE (KOUT, 503)  IUNIT,KTP 

131  503  FORMAT(/"  UNIT  ",I2,"  IS  A 

132  GOTO  206 

133  4 WRITE (KOUT, 504)  IUNIT,KTP 

134  504  FORMAT(/"  UNIT  ",I2,”  IS  A 

135  GOTO  206 

136  5 WRITE (KOUT, 505)  IUNIT,KTP 

137  505  FORMAT(/”  UNIT  ",I2,"  IS  A 

138  GOTO  206 

139  6 WRITE (KOUT, 506)  IUNIT,KTP 

140  506  FORMAT(/"  UNIT  ",I2,"  IS  A 

141  GOTO  206 

142  7 WRITE(K0UT,507)  IUNIT,KTP 

143  507  FORMAT(/"  UNIT  ",I2,"  IS  A 

144  GOTO  206 

145  8 WRITE(K0UT,508)  IUNIT,KTP 

146  508  FORMAT(/"  UNIT  ",I2,"  IS  A 

147  GOTO  206 

148  9 WRITE (KOUT, 509)  IUNIT,KTP 

149  509  FORMAT(/"  UNIT  ",I2,"  IS  A 

150  1 " HEAT  EXCHANGER") 

151  GOTO  206 

152  10  WRITE (KOUT, 510)  IUNIT,KTP 

153  510  FORMAT(/"  UNIT  ",I2,"  IS  A 

154  1 " COLLECTOR") 

155  GOTO  206 

156  11  WRITE (KOUT, 511)  IUNIT,KTP 

157  511  FORMAT(/"  UNIT  ",I2,"  IS  A 

158  GOTO  206 


TYPE 

» ’• 

, , 

READER") 

TYPE 

",I2," 

INTEGRATOR") 

TYPE 

M2," 

PRINTER") 

TYPE 

" 12  " 

THERMOSTAT") 

TYPE 

" 12  " 

GREENHOUSE") 

TYPE 

" 12  " 

PUMP  OR  FAN") 

TYPE 

” 12  ” 

TEE") 

TYPE 

..  J2  •• 

SENSIBLE  HEAT  EXCHANGER") 

TYPE 

..  J2  ” 

LATENT  AND  SENSIBLE", 

TYPE 

” 12  " 

FLAT  PLATE  SOLAR", 

TYPE 

" T2  " 

FLUID  STORAGE  TANK") 
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159 

12 

WRITE (KOUT, 512) 

IUNIT,KTP 

160 

512 

FORMAT(/"  UNIT 

",I2,"  IS  A 

TYPE  " 

,12," 

TIME  FUNCTION") 

161 

GOTO  206 

162 

13 

WRITE (KOUT, 513) 

IUNIT,KTP 

163 

513 

FORMAT (/’*  UNIT 

’•,12,"  IS  A 

TYPE  " 

,12," 

RESERVOIR") 

164 

GOTO  206 

165 

14 

WRITE (KOUT, 514) 

IUNIT,KTP 

166 

514 

FORMAT(/"  UNIT 

”,I2,"  IS  A 

TYPE  " 

12  " 

COMPLICATED  GREENHOUSE") 

167 

GOTO  206 

168 

15 

WRITE (KOUT, 515) 

IUNIT,KTP 

169 

515 

FORMAT(/"  UNIT 

",I2,"  IS  A 

TYPE  " 

,12," 

SIMPLE  GREENHOUSE") 

170 

GOTO  206 

171 

16 

WRITE (KOUT, 516) 

IUNIT,KTP 

172 

516 

FORMAT (/"  UNIT 

",I2,”  IS  A 

TYPE  " 

,12," 

HEATER") 

173 

GOTO  206 

174 

17 

WRITE (KOUT, 517) 

IUNIT,KTP 

175 

517 

FORMAT(/”  UNIT 

",I2,"  IS  A 

TYPE  " 

12  " 

NIGHT  SKY  RADIATOR") 

176 

GOTO  206 

177 

18 

WRITE (KOUT, 518) 

IUNIT,KTP 

178 

518 

FORMAT(/"  UNIT 

",I2,"  IS  A 

TYPE  " 

,12," 

EVAPORATIVE  AIR  COOLER") 

179 

GOTO  206 

180 

19 

WRITE (KOUT, 519) 

IUNIT,KTP 

181 

519 

FORMAT  (/•■  UNIT 

”,I2,"  IS  A 

TYPE  " 

,12," 

ROCK  BED  STORAGE") 

182 

GOTO  206 

183 

20 

WRITE(K0UT,520) 

IUNIT,KTP 

184 

520 

FORMAT(/"  UNIT 

",I2,”  IS  A 

TYPE  " 

12  " 

ARITHMETIC  CALCULATOR") 

185 

GOTO  206 

186 

21 

WRITE (KOUT, 521) 

IUNIT,KTP 

187 

521 

FORMAT(/''  UNIT 

",I2,"  IS  A 

TYPE  ” 

,12," 

ON-OFF  THERMOSTAT") 

188 

GOTO  206 

189 

22 

WRITE(KOUT,522) 

IUNIT,KTP 

190 

522 

FORMAT(/"  UNIT 

",I2,"  IS  A 

TYPE  " 

,12," 

MULTISTAGE  THERMOSTAT") 

191 

GOTO  206 

192 

23 

WRITE (KOUT, 523) 

IUNIT,KTP 

193 

523 

FORMAT(/"  UNIT 

”,I2,"  IS  A 

TYPE  " 

,12," 

CURTAIN  HEAT  EXCHANGER") 

194 

GOTO  206 

195 

24 

WRITE (KOUT, 524) 

IUNIT,KTP 

196 

524 

FORMAT(/"  UNIT 

",I2,"  IS  A 

TYPE  ” 

,12," 

PASSIVE  STORAGE") 

197 

GOTO  206 

198 

C 

199 

C 

BYPASS  THIS  SECTION  IF  THE  lUNIT  TH 

UNIT  HAS  NO  PARAMETERS 

200 

206 

IF(KARTYP(KTP, 

l).EQ.O)  GOTO  107 

201  C 

202  C TEST  FOR  DEVICES  WHICH  HAVE  VARIABLE  NUMBER  OF  PARAMETERS 

203  C FIRST  PARAMETER  MUST  BE  TOTAL  NUMBER  OF  PARAMETERS  AND  BE  ON 

204  C THE  LINE  BEFORE  THE  REST  OF  THE  PARAMETERS 

205  C GH 

206  IF(KTP.EQ.5)  GOTO  236 

207  C TIMFN 

208  IF(KTP.EQ.12)  GOTO  236 
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209  C 

RSVOR 

210 

IF(KTP.EQ.13)  GOTO  236 

211  C 

ARITH 

212 

IF(KTP.EQ.20)  GOTO  236 

213  C 

MSTAT 

214 

IF(KTP.EQ.22)  GOTO  236 

215  C 

216  C 

COMPUTE  THE  SUBSCRIPTS  WHERE  THE  PARAMETERS  FOR  DEVICES  WITH 

217  C 

CONSTANT  NUMBER  OF  PARAMETERS  WILL  BE  STORED. 

218 

KSUBS( lUNIT ,1,1 )=IPARL+1 

219 

KSUBS ( lUNIT ,1,2) =KSUBS ( lUNIT ,1,1 )+KARTYP (KTP , 1 ) -1 

220  C 

GET  THE  VALUES  OF  THE  PARAMETERS  FOR  DEVICES  WITH 

CONSTANT  NO. 

221  C 

OF  PARAMETERS 

222 

IPARF=KSUBS( lUNIT ,1,1) 

223 

IPARL=KSUBS ( lUNIT ,1,2) 

224 

READ (INDATA,*)  (PAR(IPAR) , IPAR=IPARF , IPARL) 

225 

GOTO  235 

226  C 

227  C 

HAVE  A DEVICE  WITH  VARIABLE  NO.  OF  PARAMETERS. 

228  C 

READ  TOTAL  NO.  OF  PARAMETERS 

229 

236 

READ (INDATA,*)  NPARI 

230 

PARI(1)=NPARI 

231  C 

READ  THE  REST  OF  THE  PARAMETERS 

232 

READ ( INDATA , * ) ( PARI ( IPAR) , IPAR=2 , NPARI ) 

233  C 

COMPUTE  THE  SUBSRIPTS  WHERE  THESE  PARAMETERS  WILL 

BE  STORED 

234 

KSUBS(IUNIT,1,1)=IPARL+1 

235 

KSUBS(IUNIT,1,2)=KSUBS(IUNIT,1,1)  + NPARI  -1 

236 

KARTYP ( KTP , 1 ) =NP ARI 

237  C 

STORE  THESE  PARAMETERS 

238 

IPARF=KSUBS ( lUNIT ,1,1) 

239 

IPARL=KSUBS( lUNIT ,1,2) 

240 

DO  237  IPAR=IPARF, IPARL 

241 

PAR( IPAR)=PARI ( IPAR-IPARF+1 ) 

242 

237 

CONTINUE 

243  C 

244 

235 

WRITE (KOUT, 229) 

245 

229 

FORMATC'  PARAMETERS  ”) 

246 

IL=IPARL-IPARF+1 

247 

DO  230  1=1, IL 

248 

230 

PARI(I)=PAR(H-IPARF-1) 

249 

WRITE (KOUT, 209) (I, PARI (I), 1=1, IL) 

250 

251 

GOTO  102 

252  C 

253 

107 

KSUBS(IUNIT,1,1)=-1 

254 

KSUBS(IUNIT,1,2)=-1 

255 

WRITE (KOUT, 229) 

256  C 

257  C 

CHANGE  KARTYP  FOR  TYPES  OF  DEVICES  WITH  VARIABLE 

CHARACTERISTICS 

258  C 

INTEGRATOR  - VARIABLE  NO.  OF  INS  AND  OUTS 

186 
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259 

260 

261  C 

262 

263  C 

264 

265 

266 

267  C 

268 

269  C 

270 

271  C 

272 

273 

274  C 

275 

276  C 

277 

278 

279  C 

280 

281  C 

282 

283  C 

284  C 

285  C 

286 

287  C 

288  C 

289  C 

290 

291 

292  C 

293  C 

294  C 

295 

296 
I 297 

298 

299 

300 

301 

302 

303 
! 304 

. 305 

306 
I 307 
! 308 

I 

) 

I 

I 

I 

I 


102  IF(KTP.EQ.2)  KARTYP(2,2)=INT(PAR(IPARF)  + .1) 

IF(KTP.EQ.2)  KARTYP(2,3)=KARTYP(2,2) 

PRINTER  HAS  VARIABLE  N.  OF  INPUTS 
IF(KTP.EQ.3)  KARTYP(3,2)=INT(PAR(IPARF)  + .1) 

GRNHS  - VARIABLE  NO.  OF  INPUTS,  OUTPUTS,  AND  DERIVATIVES 
IF(KTP.EQ.5)  KARTYP(5,2)»14  + INT(3 .*PAR(IPARF+1)  + .1) 
IF(KTP.EQ.5)  KARTYP(5,4)»INT(PAR(IPARF+2)  + .1) 

IF(KTP . EQ . 5)  KARTYPC 5 , 3 )»22+KARTYP( 5 , 4 )+INT( 3 .*PAR(IPARF+1 )+. 1 ) 
TANK  - VARIABLE  NO.  OF  DERIVATIVES 
IF(KTP.EQ.ll)  KARTYP(11,4)=INT(PAR(IPARF)  + .1) 

RSVOR  - NO.  OF  OUTPUTS  IS  1 LESS  THAN  NO.  OF  PARAMETERS 
IF(KTP.EQ.13)  KARTYP(13,3)=KARTYP(13,1)  - 1 
CGRNHS  - VARIABLE  NO.  OF  INPUTS,  OUTPUTS 
IF(KTP.EQ.14)  KARTYPC 14, 2 )=21  + INT(3.*PAR(IPARF)  + .1) 
IF(KTP.EQ.14)  KARTYP(14,3)=46+INT(3.*PAR(IPARF)+.l) 

SGRNHS  - VARIABLE  NO.  OF  INPUTS 
IF(KTP.EQ.15)  KARTYPC 15, 2 )=8  + INTC2.*PARCIPARF)  + .1) 

ROCK  - VARIABLE  NO.  OF  OUTPUTS  AND  DERIVATIVES 
IFCKTP.EQ.19)  KARTYPC 19, 4 )=PARCIPARF)  + *1 
IFCKTP.EQ.19)  KARTYPC19,3)=KARTYPC19,4)  + 11 
ARITH  - VARIABLE  NO.  OF  INPUTS 
IFCKTP.EQ.20)  KARTYPC 20, 2 )=PARCIPARF+1)  + .1 
MSTAT  - VARIABLE  NO.  OF  OUTPUTS 
IFCKTP.EQ.22)  KARTYPC22,3)=2*CKARTYPC22,1)  - 2) 


BYPASS  THIS  SECTION  IF  THE  UNIT  TH  UNIT  HAS  NO  INPUTS 
IFCKARTYPCKTP,2).EQ.O)  GOTO  103 


COMPUTE  THE  SUBSCRIPTS  WHERE  THE  INPUT  FOR  lUNIT  WILL  BE  STORED 
KSUBS  C lUNIT ,2,1 )=IINL+1 

KSUBS  C lUNIT , 2 , 2 )=KSUBS C lUNIT ,2,1 )+KARTYPCKTP , 2 ) -1 

GET  THE  UNIT  NO.S  AND  THE  OUTPUT  NO.S  OF  THE  OUTPUTS  CONNECTED 
TO  THE  INPUTS  OF  lUNIT 
IINF=KSUBS  C lUNIT ,2,1) 

IINL=KSUBS  C lUNIT ,2,2) 

READC INDATA, * ) CKONECTC  UN , 1 ) , KONECTC UN , 2 ) , IIN=IINF , IINL) 

WRITE CKOUT, 216)  I 

216  FORMAT C"  INPUTS  C INPUT  NO.,  UNIT  NO.,  OUTPUT  NO.)")  I 

IL=IINL-IINF+1  I 

DO  220  1=1, IL  I 

DO  220  J=l,2  I 

220  KWRTCI,J)=K0NECTCI+IINF-1,J) 

WRITECK0UT,219)CI,KWRTCI,1),KWRTCI,2),I=1,IL) 

219  FORMATCCIH  ,6CI6,I4,I3))) 

GOTO  121 

103  KSUBSCIUNIT,2,1)=-1 
KSUBSCIUNIT,2,2)=  -1 
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309  WRITE (KOUT, 216) 

310  C 

311  C BYPASS  THIS  OUTPUT  PORTION  IF  THE  lUNIT  TH  UNIT  HAS  NO  OUTPUTS 

312  121  IF(KARTYP(KTP,3).EQ.O)  GOTO  101 

313  C 

314  C COMPUTE  THE  SUBSCRIPTS  WHERE  THE  OUTPUT  FROM  lUNIT  WILL  BE  STORED 

315  KSUBS(IUNIT,3,1)=I0UTL+1 

316  KSUBS(IUNIT,3,2)=KSUBS(IUNIT,3,1)+KARTYP(KTP,3)-1 

317  C 

318  C GET  THE  INITIAL  VALUES  OF  THE  OUTPUTS 

319  I0UTF=KSUBS(IUNIT,3,1) 

320  IOUTL=KSUBS(IUNIT,3,2) 

321  READ(INDATA,*)(OUTPUT(IOUT) ,IOUT=IOUTF,IOUTL) 

322  WRITE (KOUT, 208) 

323  208  FORMATC  INITIAL  OUTPUTS  ”) 

324  IL=I0UTL-I0UTF+1 

325  DO  210  1=1, IL 

326  210  0UTI(I)=0UTPUT(I+I0UTF-1) 

327  WRITE(KOUT,209)(I,OUTI(I),I=1,IL) 

328  209  F0RMAT((1H  ,6(I3,E10.4))) 

329  GOTO  104 

330  101  KSUBS(IUNIT,3,1)=-1 

331  KSUBS(IUNIT,3,2)=-1 

332  WRITE (KOUT, 208) 

333  C 

334  C BYPASS  THIS  SECTION  IF  THE  lUNIT  TH  UNIT  HAS  NO  DERIVATIVES 

335  104  IF(KARTYP(KTP,4).EQ.O)  GOTO  105 

336  C 

337  C COMPUTE  THE  SUBSCRIPTS  WHERE  THE  DERIVATIVES  OF  lUNIT 

338  C WILL  BE  STORED 

339  KSUBS(IUNIT,4,1)=IDTDTL+1 

340  KSUBS(IUNIT,4,2)=KSUBS(IUNIT,4,1)+KARTYP(KTP,4)  -1 

341  C 

342  C GET  INITIAL  VALUES  OF  THE  DEPENDENT  VARIABLE  WHOSE  DERIVATIVE 

343  C MUST  BE  EVALUATED 

344  IDTDTF=KSUBS(IUNIT,4,1) 

345  IDTDTL=KSUBS(IUNIT,4,2) 

346  READ( INDATA, * ) (T(IDTDT) , IDTDT=IDTDTF , IDTDTL) 

347  WRITE(KOUT,224) 

348  224  FORMAT("  INITIAL  VALUES  OF  DEPENDENT  VARIABLES  ”) 

349  IL=IDTDTL-IDTDTF+1 

350  DO  225  1=1, IL 

351  225  TI(I)=T(H-IDTDTF-1) 

352  WRITE (KOUT , 209 ) ( I , TI ( I ) , 1=1 , IL) 

353  GOTO  115 

354  105  KSUBS(IUNIT,4,1)=-1 

355  KSUBS(IUNIT,4,2)=-1 

356  WRITE (KOUT, 224) 

357  C 

358  C IF  THE  DEVICE  IS  A TYPE  2 INTEGRATOR,  INITIALIZE  UNIT  NUMBER 
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359 

360 

361 

362  C 

363  C 

364 

365 

366 

367 

368 

369 

370 

371 

372  C 

373  C 

374  C 

375 

376 

377 

378 

379 

380 

381 

382  C 

383  C 

384  C 

385 

386 

387 

388 

389  C 

390  C 

391  C 

392  C 

393  C 

394 

395 

396 

397 

398  C 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 


115  IF(KTP.NE.2)  GOTO  129 
NTGR=NTGR+1 

ISU(NTGR)=PAR(IPARF+2)  + .01 

IF  THE  DEVICE  IS  A TYPE  3 PRINTER,  READ  LABELS 

129  IF(KTP.NE.3)  GOTO  148 

NPRT=NPRT+1 
LMAX=PAR(IPARF)  + .01 
LABU(NPRT)=PAR(IPARF+3)  + .01 

READ ( INDATA , 1 30 )(( LABEL ( J , I , NPRT ), J= 1 , 2 ), 1= 1 , LMAX ) 

130  F0RMAT(20(2A2)) 

WRITE ( KOUT , 1 3 1 ) ( ( L ABEL ( J , I , NPRT ) , J= 1 , 2 ) , I = 1 , LMAX) 

131  F0RMAT(1H  ,20(2A2)) 

IF  THE  DEVICE  IS  A TYPE  4 THERMOSTAT,  INITIALIZE  THE  UNIT  NUMBERS 
AND  TIMES  AND  OUTPUTS  IN  THE  CD  ARRAY. 

148  IF(KTP.NE.4)  GOTO  147 

KTROL=KTROL+l 

CD ( KTROL , 1 ) =P AR( I PARF+1 ) 

CD(KTROL,2)=  - DELT/3600. 

CD(KTR0L,3)=0. 

CD ( KTROL , 4 ) =OUTPUT ( lOUTF ) 

CD(KTR0L,7)=0. 

IF  THE  DEVICE  IS  TYPE  5 GREENHOUSE,  INIT  OLD  AIR  TEMP,  COVER  TEMP, 
AND  HUMIDITY  RATIO  VALUES 
147  IF(KTP.NE.5)  GOTO  149 
TAIOLD=OUTPUT ( lOUTF ) 

WAIOLD=OUTPUT(IOUTF+l ) 

TCOLD  =OUTPUT(IOUTF+2) 

IF  THE  DEVICE  IS  A TYPE  14  GREENHOUSE,  INITALIZE 
OUTSIDE  COVER  TEMP,  INSIDE  COVER  TEMP,  VETETATION  TEMP, 

SOIL  SURFACE  TEMP,  CURTAIN  HEAT  EXCHANGER  TEMP,  AIR  TEMP, 

AIR  HUMIDITY  RATIO,  SOIL  STORAGE  TEMP,  AND  TIME 

149  IF(KTP.NE.14)  GOTO  170 
DO  151  1=1,8 

151  GHOLD(I)=OUTPUT(IOUTF+I-l) 

GHTIME=-DELT/3600. 

GET  AND  WRITE  SOIL  RESPONSE  FACTORS  AND  TEMPERATURE  HISTORY 
READCINDATA,*)  MMAX,GS(1) ,GS(2) 

READ (INDATA,*)  BR,TD, BRF(4 , 1) 

WRITE (KOUT, 161)  MMAX, GS( 1 ) ,GS(2 ) ,BR,TD, BRF(4 , 1) 

161  FORMAT("  SOIL  RESPONSE  FACTORS  AND  TEMPERATURE  HISTORY"/ 

1 " MMAX=",I3,"  GOOLD  =",E13.5,"  GSOOLD=" ,E13. 5/ 

2 " BR=",E13.5,"  TD=",F7.2,"  B41=",F10.5/ 

3 2X , "M" , 5X , " B 1 " , 8X , " B2 " , 8X , " B3 " , 5X , " TGO " , 4X , "TGS " ) 

READ( INDATA,*)  Ml , (BRF( I , 1 ) , 1=1 , 3 ) 

WRITE (KOUT ,164)  Ml , ( BRF ( I , 1 ) , 1=1 , 3 ) 

164  F0RMAT(1H  , 13 , 3F10. 5 , 2F7 . 2) 
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409 

DO  165  M-2,MMAX 

410 

MMl-M-1 

411 

READ ( INDATA ,*)  M1,(BRF(I,M),I*1,3), TGOOLD ( MMl ) , TGSOLD (MMl ) 

412 

IF(Ml.NE.M)  WRITE(KOUT,163) 

413 

163 

FORMAT(”  M SEQUENCE  ERROR  IN  RESPONSE  FACTOR  TABLE”) 

414 

WRITE (KOUT ,164)  Ml , ( BRF ( I , M) , I»1 , 3 ) , TGOOLD (MMl ) , TGS0LD(MM1 ) 

415 

165 

CONTINUE 

416  C 

COMPUTE  REST  OF  B4M'S  FOR  SEMI-INFINITE  REGION 

417 

DO  168  M»2,MMAX 

418 

XM-M 

419 

168 

BRF(4 ,M)»BRF(4 , 1 )*( SQRT(XM)-2 .*SQRT(XM-1 . )+SQRT(XM-2 . ) ) 

420  C 

421  C 

IF  THE  DEVICE  IS  TYPE  17  NIGHT  SKY  RADIATOR,  THEN  INITIALIZE 

422  C 

OLD  VALUES  OF  COVER  AND  SURFACE  TEMPERATURE 

423 

170 

IF(KTP.NE.17)  GOTO  152 

424 

TCOV»OUTPUT(IOUTF  + 2) 

425 

TSUR»OUTPUT(IOUTF  + 3) 

426  C 

427  C 

IF  THE  DEVICE  IS  A TYPE  22  MULTISTAGE  THERMERMOSTAT,  INITIALIZE 

428 

152 

IF(KTP.NE.22)  GOTO  999 

429 

TIMMST— DELT/3600. 

430 

NSETS-PAR(IPARF)  - 1.99 

431 

DO  150  I0UT-1,NSETS 

432 

IT2»IOUT*2  - 1 

433 

TMS ( lOUT , 1 ) -OUTPUT ( I0UTF+IT2-1 ) 

434 

TMS(IOUT,4)»0. 

435 

150 

CONTINUE 

436  C 

437  C 

438 

999 

CONTINUE 

439  C 

440  C 

441  C 

INITIALIZE 

442 

NDTDTS-IDTDTL 

443 

NOUTS-IOUTL 

444 

DO  108  IDTDT-1,NDTDTS 

445 

108 

DTDT(IDTDT)=0. 

446 

DO  109  I0UT=1,N0UTS 

447 

0LDIN(I0UT)=0. 

448 

109 

OUTOLD ( lOUT ) -OUTPUT ( I OUT ) 

449  C 

450  C 

451 

RETURN 

452 

END 

rg  cn  <r  m vo  00 
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PROGRAM  MEBV1(5) 

DIMENSION  IPAR(5) 

CALL  RMPAR(IPAR) 

INSTN=IPAR(1) 

GOTO  INSTN 
END 
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9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 
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c 

SUBROUTINE  READR 
C 

C TYPE  1 

C 

C THIS  SUBROUTINE  READS  WEATHER  DATA  INTO  CORE  FROM  A DISK 

C FILE  NAMED  "MEBKLMT"  AND  OPENED  TO  THE  NAME  "KLMIT".  THE  FILE 

C SHOULD  BE  IN  THE  FORMAT  OF  THE  OUTPUT  FROM  THE  USWCL  PROGRAM 

C FOR  DECODING  NATIONAL  WEATHER  SERVICE  DATA.  THE  FIRST  FIELD 

C ON  A DATA  LINE  SHOULD  BE  A TWO  LETTER  LOCATION  IDENTIFIER. 

C 

C THE  OUTPUTS  ARE: 

C 1-YEAR(2  DIGIT)  2-MONTH,  3-DAY,  4-HOUR,  5-DEW  POINT  (C) 

C 6-HUM  RATIO  (KG/KG),  7-WIND  SPEED  (M/S),  8-STATION  PRESSURE(KPA) 

C 9-DRY  BULB  (C),  lO-WET  BULB  (C),  11-RELATIVE  HUMIDITY  (%), 

C 12-TOTAL  SOLAR  RADIATION  ON  A HORIZONTAL  SURFACE  (W/M2), 

C 13-DIFFUSE  ON  HORIZ  (W/M2),  14-ANGLE  OF  INCIDENCE  ON  HORIZ(DEG), 

C 15-TOTAL  ON  VERT  (W/M2),  16-DIFFUSE  ON  VERT  (W/M2),  17-ANGLE 

C OF  IN  ON  VERT  (DEG),  18-TOTAL  OF  SURFACE  TILTED 

C AT  LATITUDE  + 10  FROM  HORIZ  (W/M2),  19-DIFFUSE  OF  TILTED  (W/M2) 

C 20-ANGLE  OF  IN  ON  TILTED  (DEG),  21-THERMAL  SKY  RADIATION  (W/M2), 

C 22-  8-14  U SKY  RADIATION  (W/M2),  23-FRACTIONAL  CLOUD  COVER. 

C 

C PROGRAMMED  BY  B.  A.  KIMBALL,  U.  S.  WATER  CONSERVATION 

C LABORATORY,  PHOENIX,  ARIZONA.  1979. 

C 

COMMON  TIME,XIN(40),OUTI(80),TI(10),DTDTI(10),PARI(99) 

COMMON/ STRT/ S YR , SMN , SDA , SHR 
COMMON/FILES / INDATA, KLMIT , KOUT , LUTERM 
DIMENSION  LOC(l) 

C 

IMAX=23 

2 READ(KLMIT,1)  LOC(l),  (OUTI(I) ,1=1 ,IMAX) 

1 FORMAT(A2,1X,3(F2.0,1X) ,F5 . 1 , IX ,F5 . 1 , 1X,F8. 5 , 1X,F5 . 2 , 1X,F6 . 2 , IX, 

1 2(F5.1,1X) ,F3.0,3(1X,F4.0,1X,F3.0,1X,F2.0),2(1X,F4.0),1X,F5.2) 

C 

C IF  THE  TIME  READ  FROM  THE  KLMIT  FILE  IS  BEFORE  THE  START  TIME 

C THEN  GO  BACK  AND  READ  AGAIN 

IF(OUTI(1)-SYR)2,3,10 

3 IF(OUTI(2)-SMN)2,4,10 

4 IF(OUTI(3)-SDA)2,5,10 

5 IF(OUTI(4)-SHR)2,10,10 

C 

10  WRITE(LUTERM,11)(0UTI(I),I=1,4) 

11  F0RMAT(1X,3F3.0,F6.2) 

C 

RETURN 

END 
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59  C 

60 

61  C 

62  C 

63  C 

64  C 

65  C 

66  C 

67  C 

68  C 

69  C 

70  C 

71  C 

72  C 

73 

74 

75 

76 

77 

78  C 

79  C 

80  C 

81  C 

82 

83 

84 

85 

86 

87 

88  C 

89  C 

90 

91  C 

92 

93  C 

94  C 

95 

96  C 

97  C 

98 

99  C 

100  C 

101 
102 

103  C 

104  C 

105 

106 

107 

108 


SUBROUTINE  INGTR 
TYPE2 


THIS  SUBROUTINE  INTEGRATES  WITH  TIME  THE  VARIABLE  GIVEN  IN 
XIN(  ).  THE  NUMBER  OF  VARIABLES  MUST  BE  GIVEN  IN  PARI(l), 

AND  THE  SIZE  OF  THE  TIME  STEP  MUST  BE  GIVEN  IN  PARI(2). 

THE  OUTPUT  CONSISTS  OF  THE  INTEGRATED  VALUES  OF  THE  INPUTS 
IN  THE  SAME  ORDER. 

PROGRAMMED  BY  B.  A.  KIMBALL,  U.  S.  WATER  CONSERVATION 
LABORATORY,  PHOENIX,  ARIZONA.  1979. 

COMMON  TIME,XIN(40) ,OUTI(80) ,TI(10) ,DTDTI(10) , PARI (99) 

COMMON  ETOL , ITMAX , NTIMES , FTRACE , STRACE , DELT , HDELT 
COMMON/ STRGE / STORX( 4,20), XOLD (4,20),ISU(4) 

COMMON/FILES/ INDATA , KLMIT , KOUT , LUTERM 
IMAX=PARI(1)  +.1 

GET  THE  UNIT  NUMBER  AND  FIND  POSITIONS  IN  THE  STORAGE  AND 
OLD  X ARRAYS  WHERE  THE  VALUES  FOR  THIS  INTEGRATOR  ARE 
STORED 

NU=PARI(3)  + .01 
L=0 

10  L=L+1 

IU=ISU(L) 

IF(IU.EQ.NU)  GOTO  11 
GOTO  10 

THIS  IS  THE  L TH  INTEGRATOR 

11  IF(TIME.EQ.  0.)  GOTO  2 

DO  1 I=1,IMAX 

UPDATE  INTEGRATED  VALUES  IN  STORAGE  ARRAY  IN  LABELED  COMMON 
STORX(L,I)=STORX(L,I)  + (XIN(I)+XOLD(L,I))*HDELT 

SAVE  CURRENT  X VALUES  FOR  NEXT  TIME 
XOLD(L,I)=XIN(I) 

RETURN  INTEGRATED  VALUES 
OUTI(I)=STORX(L,I) 

1 CONTINUE 

CHECK  IF  THIS  IS  A RESET  TIME 
CT=PARI(2) 

T=TIME 

6 IF(CT  .GE.  .999)  GOTO  7 
CT=CT*100. 
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109  T=T*100. 

110  GOTO  6 

111  7 R1=(T/CT) 

112  R2=INT(T  + .001)/INT(CT  + .001) 

113  IF(ABS(R1-R2)  .GT.  .999E-6)  GOTO  4 

114  C 

115  DO  5 I=1,IMAX 

116  5 ST0RX(L,I)=0. 

117  C 

118  4 RETURN 

119  C 

120  C FIRST  TIME,  INITIALIZE  ACCUMULATOR  AND  OLD  X VALUES 

121  C 

122  2 DO  3 I=1,IMAX 

123  ST0RX(L,I)=0. 

124  OUTI(I)=STORX(L,I) 

125  XOLD(L,I)=XIN(I) 

126  3 CONTINUE 

127  RETURN 

128  END 
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129  C 

130 

131  C 

132  C 

133  C 

134  C 

135  C 

136  C 

137  C 

138  C 

139  C 

140  C 

141  C 

142 

143 

144 

145  C 

146  C 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156  C 

157 

158 

159 

160  C 

161  C 

162  C 

163 

164 

165 
, 166 

167 

168 

' 169  C 

170  C 
' 171  C 

172 
i 173 
: 174 

175 

I 176  C 
! 177 

; 178 


SUBROUTINE  PRNTR 
TYPE3 


THIS  SUBROUTINE  PRINTS  OUTPUT  DATA.  THE  DATA  TO  BE 
PRINTED  MUST  BE  GIVEN  SEQUENTIALLY  IN  THE  XIN(  ) ARRAY.  THE 
NUMBER  OF  INPUTS  MUST  BE  GIVEN  IN  PARI(l). 

PARI(2)  IS  THE  DESIRED  ELAPSED  TIME  BETWEEN  PRINT-OUTS. 

PROGRAMMED  BY  B.  A.  KIMBALL,  U.  S.  WATER  CONSERVATION 
LABORATORY,  PHOENIX,  ARIZONA.  1979. 

COMMON  TIME,XIN(40) ,OUTI(80) ,TI(10) ,DTDTI(10) ,PARI(99) 
COMMON/FILES/INDATA, KLMIT , KOUT , LUTERM 
COMMON/LB/LABEL( 2 ,40,5), LABU( 5 ) 

CHECK  IF  THIS  IS  A PRINT-OUT  TIME 
CT=PARI(2) 

T=TIME 

1 IF(CT  .GE.  .999)  GOTO  2 
CT=CT*100. 

T=T*100. 

GOTO  1 

2 R1=(T/CT) 

R2=INT(T  + .001)/INT(CT  + .001) 

IF(ABS(R1-R2)  .GT.  .001)  GOTO  10 

WRITE (KOUT, 12)  TIME 
12  FORMAT(”  TIME  = ",F8.2) 

IMAX=PARI(1)  + .1 

GET  THE  UNIT  NUMBER  AND  FIND  POSITION  IN  THE  LABEL  ARRAY  WHERE 
LABELS  FOR  THIS  PRINTER  ARE  STORED. 

NU=PARI(4)  + .01 
L=0 

3 L=L+1 

IU=LABU(L) 

IF(IU.EQ.NU)  GOTO  4 
GOTO  3 

THIS  IS  THE  L TH  PRINTER 

SELECT  THE  FORMAT  FOR  PAGE  WIDTH 

4 IF(PARI(3).GT.  80.1)  GOTO  6 

WRITE(KOUT,5)((LABEL(J,I,L),J=l,2),XIN(I),I=l,IMAX) 

5 F0RMAT(5(1X,2A2,E12.6)) 

GOTO  10 

6 WRITE(KOUT,7)((LABEL(J,I,L),J=l,2),XIN(I),I=l,IMAX) 

7 F0RMAT(8(1X,2A2,E12.6)) 
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179  C 

180  10  RETURN 

181  END 
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182  C 

183 

184  C 

185  C 

186  C 

187  C 

188  C 

189  C 

190  C 

191  C 

192  C 

193  C 

194  C 

195  C 

196  C 

197  C 

198  C 

199  C 

200  C 

201  C 

202  C 

203  C 

204  C 

205  C 

206  C 

207  C 

208  C 

209  C 

210  C 

211  C 

212  C 

213  C 

214  C 

215  C 

216  C 

217  C 

218  C 

219  C 

220  C 

221  C 

222  C 

223  C 

224  C 

225  C 

226  C 

227  C 

228 

229 

230 

231 


SUBROUTINE  TSTAT 
TYPE  4 THERMOSTAT 

THIS  SUBROUTINE  COMPARES  A TEMPERATURE  (OR  OTHER  INPUT 
VARIABLE)  GIVEN  IN  XIN(l)  WITH  A SET  POINT  GIVEN  IN  PARI(l). 

IT  THEN  COMPUTES  A CONTROL  VARIABLE  WHOSE  VALUE  RANGES  FROM 
0.  TO  1.  VALUES  OF  THE  DEVIATION  FROM  SET  POINT  AND  OF  THE 
CONTROL  VARIABLE  FROM  PREVIOUS  ITERATIONS  ARE  STORED  IN  THE 
CD(  , ) ARRAY  IN  LABELED  COMMON.  USING  THE  CHANGE  IN  DEVIATION 
FROM  SET  POINT  WITH  CHANGES  IN  VALUE  OF  THE  CONTROL  VARIABLE, 

A NEWTON-TYPE  ITERATION  IS  USED  TO  COMPUTE  THE  VALUE  OF  THE 
CONTROL  VARIABLE  FROM  VALUES  USED  IN  PAST  ITERATIONS.  IN  ORDER 
TO  ACHIEVE  STABILITY,  HOWEVER,  THE  SIZE  OF  THE  COMPUTED 
CORRECTION  STEPS  IS  ALTERNATED  BETWEEN  FULL  STEPS  AND  0.1  STEPS. 

THE  CODE  FOR  THE  CD  ARRAY  IS: 

CD(I,1)  UNIT  NUMBER.  THE  PROGRAM  STORES  THE  INFORMATION  FOR 
EACH  TYPE  4 THERMOSTAT  ON  DIFFERENT  ROWS  OF  THIS  ARRAY 
AS  DETERMINED  BY  THE  FIRST  SUBSCRIPT.  THE  FIRST  SUBSCRIPT 
MUST  BE  DIMENSIONED  LARGER  THAN  THE  TOTAL  NUMBER  OF  TYPE 
4 THERMOSTATS  IN  USE  AT  ONE  TIME.  THE  UNIT  NUMBER  AS 
THE  FIRST  ELEMENT  FOR  THE  SECOND  SUBSCRIPT  MUST  BE 
GIVEN  IN  PARI(2)  AND  IS  USED  TO  DETERMINE  WHICH  ROW 
IS  USED  FOR  WHICH  THERMOSTAT. 

CD(I,2)  TIME.  USED  TO  RESET  STORED  VALUES. 

CD(I,3)  ITERATION  COUNTER. 

CD(I,4)  VALUE  OF  CONTROL  VARIABLE  FROM  PREVIOUS  ITERATION. 
CD(I,5)  VALUE  OF  DEVIATION  FROM  SET  POINT  (FUNCTION)  FROM 
PREVIOUS  ITERATION. 

CD(I,6)  VALUE  OF  CONTROL  VARIABLE  FROM  PREVIOUS  PREVIOUS 
ITERATION. 

CD(I,7)  LAST  COMPUTED  VALUE  OF  CHANGE  IN  DEVIATION  FROM  SET 
POINT  WITH  CHANGE  IN  CONTROL  VARIABLE. 

CD(I,8)  ACCUMULATED  VALUES  OF  CONTROL  VARIABLE 

THE  THERMOSTAT  HAS  TWO  MODES.  MODE  1 IS  THE  MORE  USUAL 
ABSOLUTE  CASE,  AND  MODE  2 IS  THE  DIFFERENTIAL  CASE,  WHEREBY  THE 
VALUE  CONSIDERED  TO  BE  THE  INPUT  VARIABLE  IS  THE  DIFFERENCE 
BETWEEN  TWO  INPUT  VARIABLES  GIVEN  IN  XIN(l)  AND  XIN(2). 

THE  MODE  CHOICE  IS  GIVEN  AS  THE  THIRD  PARAMETER,  PARI(3). 

PROGRAMMED  BY  B.  A.  KIMBALL,  U.  S.  WATER  CONSERVATION 
LABORATORY,  PHOENIX,  ARIZONA.  1979. 

COMMON  TIME,XIN(40) ,0UTI(80) ,TI( 10) ,DTDTI(10) ,PARI(99) 

COMMON  ETOL , ITMAX , NTIMES , FTRACE , STRACE , DELT , HDELT 
COMMON/FILES / INDATA , KLMIT , KOUT , LUTERM 
COMMON/CNTRL/CD( 10 , 8) 


1 


PAGE 

9 

TSTAT  OPTS;  LYI  10:51  AM  TUE.,  30 

NOV.,  1982 

232 

C 

233 

C 

GET  UNIT  NUMBER  AND  FIND  POSITION  IN  THE  CD( 

) ARRAY  WHERE 

234 

C 

DATA  FOR  THIS  CONTROLLER  ARE  STORED. 

235 

NU=PARI(2)  + .01 

236 

1=0 

237 

1 

1=1+1 

238 

ICD=CD(I,1)  + .01 

239 

IF(NU.EQ.ICD)  GOTO  2 

240 

GOTO  1 

241 

C 

DATA  STARTS  IN  I TH  ROW 

242 

C 

243 

C 

COMPUTE  CURRENT  FUNCTION  VALUE 

244 

2 

M0DE=PARI(3)  + .01 

245 

IF(MODE.EQ.l)  T=XIN(1) 

246 

IF(MODE.EQ.2)  T=XIN(1)-XIN(2) 

247 

F=T-PARI(1) 

248 

CD(I,3)=CD(I,3)  + 1. 

249 

C 

250 

C 

CHECK  IF  THIS  IS  THE  FIRST  CALL  TO  THIS  SR  FOR  THIS  TIME-STEP 

251 

IF(ABS(TIME-CD(I,2))  .LT.  .001)  GOTO  4 

252 

C 

253 

C 

RESET  TIME,  ITERATION  COUNTER,  ACCUMULATOR 

254 

CD(I,2)=TIME 

255 

CD(I,3)=1. 

256 

CD(I,8)=0. 

257 

IF(TIME.GT.  0.)  GOTO  4 

258 

C 

259 

C 

IF  THIS  IS  FIRST  SIMULATION  TIME,  CHANGE  CONTROL  VARIABLE 

260 

C 

BY  10%  IN  DIRECTION  TO  MOVE  F TOWARD  0.0 

261 

0UTI(1)=CD(I,4)  - 0.1*SIGN(1.,F)*CD(I,4) 

262 

IF(0UTI(1)  .GT.  1.)  0UTI(1)=1.0 

263 

IF(0UTI(1)  .LT.  0.)  OUTI(1)=0.0 

264 

GOTO  10 

265 

C 

266 

C 

CHECK  NUMBER  OF  ITERATIONS  TO  SEE  IF  NEED  TO 

FIX  OUTPUT 

267 

4 

IT4MAX=ITMAX*3  + 1 

. 268 

IC0M=CD(I,3)  + .01 

269 

IF(ICOM.LT.  IT4MAX)  GOTO  13 

270 

C 

HAVE  EXCESSIVE  NUMBER  OF  ITERATIONS 

271 

IF(ICOM.EQ.  IT4MAX)  OUTI(l)=CD(I,8)/(IT4MAX  - 

1) 

272 

IF(ICOM.GT.  IT4MAX)  0UTI(1)=CD(I,4) 

273 

GOTO  10 

274 

C 

275 

C 

CALCULATE  ALTERNATE  FULL  OR  0.1  STEP  SIZE  FOR  PROPORTIONAL 

276 

C 

CONTROL 

277 

13 

C1=INT(CD(I,3)  + 1.0001)/2 

278 

C2=CD(I,3)/2. 

279 

CSTEP=1.0 

280 

IF(ABS(C1-C2).LT.  0.01)  CSTEP=0.1 

281 

C 
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282  C 

283 

284 

285  C 

286  C 

287 

288  C 

289  C 

290 

291 

292 

293 

294 

295  C 

296 

297  C 

298  C 

299 

300 

301  C 

302 

303 

304 

305 

306  C 

307  C 

308 

309 

310  C 

311  C 

312 

313 

314  C 

315  C 

316  C 

317 

318 

319  C 

320  C 

321 

322 

323  C 

324  C 

325  C 

326 

327 

328  C 

329 

330 

331 


CHECK  FOR  ZERO  FUNCTION  CHANGE 
DELF=F-CD(I,5) 

IF(ABS(DELF)  .GT.  l.E-10)  GOTO  5 

CHECK  ABSOLUTE  FUNCTION  VALUE 
IF(ABS(F).GT.  .01)  GOTO  7 

FUNCTION  ITSELF  ZERO,  SO  KEEP  SAME  CONTROL  VARIABLE  VALUE 
0UTI(1)=CD(I,4) 

0UTI(2)=  1.  - OUTI(l) 

IF(TIME.GE.FTRACE  .AND.  TIME.LE.STRACE) WRITE (KOUT, 11) 

1 (J,CD(I,J),J=1,7) 

11  F0RMAT(1H  ,”CD='7,5(I4,E12.5)) 

RETURN 

FUNCTION  NOT  ZERO,  USE  OLD  VALUE  OF  GRADIENT,  TAKE  SMALL  STEP 
7 GRAD=CD(1,7) 

CSTEP=  0.1 

IF  HAVE  ZERO  GRADIENT,  KEEP  OLD  VALUES 
0UTI(1)=CD(I,4) 

0UTI(2)=1.  - OUTI(l) 

IF(ABS(GRAD).LE.  l.E-10)  GOTO  10 
GOTO  32 

CHECK  FOR  ZERO  VARIABLE  CHANGE 
5 DELX=CD(I,4)-CD(I,6) 

IF(ABS(DELX)  .GT.  l.E-10)  GOTO  8 

CHECK  IF  HAVE  MAX  ON  OR  OFF 
IF(CD(I,4).EQ.  0.)  GOTO  6 
IF(CD(I,4).EQ.  1.)  GOTO  12 

HAVE  PROPORTIONAL  CONTROL,  BUT  VARIABLE  NOT  CHANGING  SO  NUDGE 
IT  JUST  A LITTLE  BIT. 

0UTI(1)=0.99*CD(I,4) 

GOTO  10 

COMPUTE  GRADIENT 
8 GRAD=DELF/DELX 
CD(I,7)=GRAD 

IF  HAVE  NEGATIVE  GRADIENT  NEED  TO  TURN  MORE  OFF  IF  F IS  + 

OR  MORE  ON  IF  F IS  - 
32  IF(GRAD  .GE.  0.)  GOTO  9 
CHANGE=F/GRAD 
REDUCE  WILD  CHANGES 
IF (CHANGE  .GT.  0.2)  CHANGE=0.2 
IF (CHANGE  .LT.  -.2)  CHANGE=-.2 
0UTI(1)=CD(I,4)  + CHANGE 
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332 

IF(OUTI(l)  .GT.  1.0)  OUTI(1)=1.0 

333 

IF(0UTI(1)  .LT.  0.0)  0UTI(1)=0.0 

334 

GOTO  10 

335  C 

336  C 

COMPUTE  NEW  VALUE  OF  CONTROL  VARIABLE  FOR  PROPORTIONAL  CHANGE 

337  9 

CHANGE=  CSTEP*F/GRAD 

338  C 

REDUCE  WILD  CHANGES 

339 

IF(CHANGE  .GT.  0.2)  CHANGE  «=  0.2 

340 

IF(CHANGE  .LT.  -.2)  CHANGE  = -.2 

341 

OUTI(l)=CD(I,4)  - CHANGE 

342 

IF(OUTI(l).GT.  1.)  OUTI(l)»l. 

343 

IF(OUTI(l).LT.  0.)  0UTI(1)=0. 

344 

GOTO  10 

345  C 

346  C 

NO  CHANGE  IN  X AND  OUTPUT  1 OFF.  IF  F 

HAS  BECOME  NEGATIVE,  TURN 

347  C 

ON  GENTLY. 

348  6 

IF(F.GE.  0.)  0UTI(1)=0. 

349 

IFCF.LT.  0.)  0UTI(1)=0.1 

350 

GOTO  10 

351  C 

352  C 

NO  CHANGE  IIN  X AND  OUTPUT  1 ON.  IF  F 

HAS  BECOME  POSITIVE,  TURN 

353  C 

OFF  GENTLY. 

354  12 

IFCF.LE.  0.)  0UTI(1)=1. 

355 

IF(F.GT.  0.)  0UTI(1)=0.9 

356  C 

357  C 

SHIFT  DATA  AND  RETURN 

358  10 

CD(I,6)=CD(I,4) 

359 

CD(I,5)=F 

360 

CD(I,4)=0UTI(1) 

361 

CD(I,8)=CD(I,8)  + OUTI(l) 

362 

0UTI(2)=  1.  - OUTI(l) 

363  C 

364 

IF(TIME.GE.FTRACE  .AND.  TIME.LE.STRACE) 

WRITE(K0UT,11) 

365 

1 (J,CD(I,J).J=1,7) 

366  C 

367 

RETURN 

368 

END 
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369  C 

370  SUBROUTINE  FAN 

371  C 

372  C TYPE  6 PUMP  OR  FAN 

373  C 

374  C THE  PUMP  OR  FAN  IS  MODELED  BY  SPECIFYING  THE  MAXIMUM  FLOW 

375  C RATE  THE  PUMP  OR  FAN  IS  CAPABLE  OF  DELIVERING  IN  PARI(l). 

376  C THIS  FLOW  RATE  IS  THEN  MULTIPLIED  BY  A CONTROL  VARIABLE 

377  C GIVEN  IN  XIN(4).  THE  FLOW  RATE  IS  OUTPUT  IN  0UTI(2).  FOR 

378  C CONTINUITY,  WATER  FLOWS  INTO  THE  PUMP  IN  XIN(2),  BUT  THE 

379  C INFORMATION  IS  NOT  USED.  TEMPERATURE  INFORMATION  FLOWS  THROUGH 

380  C THE  PUMP  FROM  XIN(l)  TO  OUTI(l),  AND  HUMITITY  RATIO  INFORMATION 

381  C FROM  XIN(3)  TO  0UTI(3). 

382  C 

383  C ADAPTED  FROM  KLEIN  ET  AL.,  "TRNSYS  - A TRANSIENT 

384  C SIMULATION  PROGRAM,"  UNIVERSITY  OF  WISCONSIN  - MADISON, 

385  C ENGINEERING  EXPERIMENT  STATION  REPORT  38,  1976. 

386  C 

387  COMMON  TIME,XIN(40) ,OUTI(80) ,TI(10) ,DTDTl(10) ,PARI(99) 

388  COMMON/FILES/INDATA,KLMIT,KOUT 

389  0UTI(1)*»XIN(1) 

390  0UTI(2)«PARI(1)*XIN(4) 

391  0UTI(3)*XIN(3) 

392  RETURN 

393  END 
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394  C 

395 

396  C 

397  C 

398  C 

399  C 

400  C 

401  C 

402  C 

403  C 

404  C 

405  C 

406  C 

407  C 

408  C 

409  C 

410  C 

411  C 

412  C 

413  C 

414  C 

415  C 

416  C 

417  C 

418  C 

419  C 

420  C 

421  C 

422  C 

423  C 

424 

425  C 

426  C 

427 

428  C 

429 

430 

431  C 

432  C 

433 

434 

435 

436 

437 

438 

439  C 

440  C 

441  C 

442 

443 
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SUBROUTINE  TEE 
TYPE  7 TEE 

THIS  SUBROUTINE  SIMULATES  THE  ACTION  OF  A TEE, 

OUTLET  MIXER,  INLET  MIXER,  OR  FLOW  DIVERTER  IN  AN  AIR 
CONDITIONING  DUCT.  IF  THE  ENTERING  HUMIDITY  RATIOS  ARE  SET 
EQUAL  TO  ZERO,  THE  ROUTINE  WILL  ALSO  SIMULATE  THE  ACTION  OF  A 
TEE  IN  A LIQUID  FLOW  SYSTEM.  THE 
FOUR  MODES  ARE  AS  FOLLOWS; 

TWO  STREAMS  CONVERGE  INTO  ONE. 

TWO  STREAMS  WHOSE  MAXIMUM  FLOW  RATES  ARE 
GIVEN  ARE  MIXED  PROPORTIONAL  TO  A 
CONTROL  VARIABLE.  (G^^MMA  = 1 GIVES  STREAM  1 

THE  FLOW  RATE  OF  THE  MIXTURE  COMING  OUT 
IS  GIVEN  AND  THE  FLOW  RATES  OF  TWO  INLET 
STREAMS  ARE  PROPORTIONED  ACCORDING  TO  A 
CONTROL  VARIABLE.  (GAMMA  = 1 GIVES  STREAM  0 

MODE  4 - FLOW  DIVERTER  A STREAM  IS  SPLIT  BETWEEN  TWO  DUCTS 

PROPORTIONAL  TO  A CONTROL  VARIABLE. 

(GAMMA  = 1 GIVES  STREAM  1.) 

PROGRAMMED  BY  B.A.  KIMBALL,  U.S.  WATER  CONSERVATION 
LABORATORY,  PHOENIX,  ARIZONA.  1980. 

COMMON  TIME,XIN(40),OUTI(80),TI(10),DTDTI(10),PARI(99) 

ENTHALPY  FROM  TEMPERATURE  AND  HUMIDITY  RATIO 
EN(T,W)=1005.*T  + W*(2468.E3  + 1859. *T) 

M0DE=PARI(1)  + .01 
G0T0(1,2,3,4),M0DE 

HAVE  TEE.  INLET  FLOW  RATES  AS  GIVEN. 

1 F1=XIN(2) 

F2=XIN(5) 

F0=F1+F2 

IF(F0.GT.  l.E-6)  GOTO  5 
IF(XIN(7).GT.  0.5)  GOTO  6 
GOTO  10 

HAVE  OUTLET  FLOW  MIXER.  GIVEN  MAX  INLET  FLOW  RATES  MIXED 
PROPORTIONALLY. 

2 F1=XIN(2)*XIN(7) 

F2=XIN(5)*(1.-XIN(7)) 


MODE  1 - TEE 

MODE  2 - MIXER  WITH 
KNOWN  INLETS 


MODE  3 - MIXER  WITH 
KNOWN  OUTLET 
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444 

F0*F1+F2 

445 

IF(F0.GT.  l.E-6)  GOTO  5 

446 

IF(XIN(7).GT.  0.5)  GOTO  6 

447 

GOTO  10 

448  C 

449  C 

HAVE  INLET  FLOW  MIXER.  GIVEN  OUTLET  FLOW 

RATE 

: AND  INLET 

450  C 

FLOW  RATES  ARE  PROPORTIONED. 

451 

3 F1=XIN(2)*XIN(7) 

452 

F2=XIN(2)-F1 

453 

F0=F1+F2 

454 

IF(FO.GT.  l.E-6)  GOTO  5 

455 

IF(XIN(7).GT.  0.5)  GOTO  6 

456 

GOTO  10 

457  C 

458  C 

COMPUTE  OUTLET  FLOW  RATE,  HUMIDITY  RATIO, 

AND 

TEMP 

459 

5 T1=XIN(1) 

460 

W1^XIN(3) 

461 

T2=XIN(4) 

462 

W2*XIN(6) 

463 

W0=(F1*W1  + F2*W2)/F0 

464 

E1=EN(T1,W1) 

465 

E2=EN(T2,W2) 

466 

E0=(F1*E1  + F2*E2)/FO 

467 

T3=(E0  - 2.468E6*W0)/(1005.  + 1859. *W0) 

468 

0UTI(1)=T3 

469 

0UTI(2)=F0 

470 

0UTI(3)=W0 

471 

0UTI(4)=0. 

472 

0UTI(5)=0. 

473 

OUTI(6)=0. 

474 

IF(M0DE.EQ.3)  GOTO  8 

475 

RETURN 

476  C 

477  C 

GET  INLET  FLOW  RATES  FOR  OUTPUTS 

478 

8 0UTI(2)=F1 

479 

OUTI(5)=F2 

480 

RETURN 

481  C 

482  C 

HAVE  ZERO  FLOW  RATES  BUT  MORE  CALL  FOR  STREAM 

1 

483 

6 DO  7 1=1,3 

484 

OUTI(I)=XIN(I) 

485 

7 0UTI(I+3)=0. 

486 

IF(MODE.EQ.  3)  GOTO  8 

487 

RETURN 

488  C 

489  C 

HAVE  ZERO  FLOW  RATES  BUT  MORE  CALL  FOR  STREAM  2 

490 

10  DO  11  1=1,3 

491 

0UTI(I)=XIN(I+3) 

492 

11  0UTI(I+3)=0. 

493 

IF(M0DE.EQ.3)  GOTO  8 
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A94  RETURN 

495  C 

496  C FLOW  DIVERTER 

497  4 0UTI(1)=XIN(1) 

498  OUTI(2)=XIN(2)*XIN(7) 

499  OUTI(3)=XIN(3) 

500  0UTI(4)=XIN(1) 

501  OUTI(5)=XIN(2)*(l.-XIN(7)) 

502  OUTI(6)=XIN(3) 

503  C 

504  RETURN 

505  END 
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506  C 

507  SUBROUTINE  LXR 

508  C 

509  C TYPE  9 LATENT  AND  SENSIBLE  HEAT  EXCHANGER 

510  C 

511  C THIS  SUBROUTINE  SIMULATES  THE  PERFORMANCE  OF  DIRECT 

512  C CONTACT  HEAT  EXCHANGERS  SUCH  AS  COOLING  TOWERS,  AS  WELL  AS 

513  C INDIRECT  EXCHANGERS  SUCH  AS  COILS  THAT  MAY  BE  WET  OR  DRY 

514  C DEPENDING  ON  INTERFACE  CONDITIONS  AND  DEW  POINT. 

515  C 

516  C THE  COMPUTATIONAL  METHOD  USED  IS  TO  DIVIDE  THE  EXCHANGER 

517  C INTO  SEGMENTS  AND  THEN  TO  STEP  THROUGH  SEGMENT  BY  SEGMENT.  IN  EAC 

518  C SEGMENT  THE  INTERFACE  TEMPERATURE  AND  HUMIDITY  RATIO  ARE  COMPUTED 

519  C FROM  AN  ENERGY  BALANCE  EQUATING  THE  HEAT  TRANSFER  IN  THE  WATER 

520  C TO  THE  SENSIBLE  AND  LATENT  HEAT  TRANSFER  IN  THE  AIR.  AFTER  THE 

521  C INTERFACE  CONDITIONS  ARE  OBTAINED,  THE  CHANGE  IN  AIR  TEMPERATURE 

522  C AND  HUMIDITY  RATIO  AND  WATER  TEMPERATURE  THROUGH  THE  SEGMENT 

523  C ARE  COMPUTED. 

524  C 

525  C THE  ABOVE  PROCEDURE  IS  DIRECTLY  APPLICABLE  TO  PARALLEL 

526  C FLOW.  FOR  COUNTER  FLOW,  A GUESS  IS  MADE  OF  THE  WATER  TEMPERATURE 

527  C WHERE  THE  AIR  ENTERS,  AND  A NEWTON  ITERATION  IS  USED  TO  IMPROVE 

528  C THE  GUESS  UNTIL  THE  COMPUTED  WATER  TEMPERATURE  AI  AIR  EXIT  EQUALS 

529  C THE  ACTUAL  WATER  TEMPERATURE  THERE. 

530  C 

531  C PROGRAMMED  BY  B.  A.  KIMBALL,  U.  S.  WATER  CONSERVATION 

532  C LABORATORY,  PHOENIX,  ARIZONA.  1979. 

533  C 

534  COMMON  TIME,XIN(40) ,OUTI(80) ,TI(10) ,DTDTI(10) ,PARI(99) 

535  COMMON  ETOL,ITMAX,NTIMES,FTRACE,STRACE,DELT,HDELT 

536  COMMON/FILES /INDATA , KLMIT , KOUT , LUTERM 

537  REAL  LACT,KDAM 

538  C 

539  C * PSYCHROMETRIC  FUNCTIONS  FROM  T IN  DEG  C AND  P IN  KPA  * 

540  C 

541  C SATURATION  VAPOR  PRESSURE  (KPA)  TETENS  EQN 

542  SVP(T)=0.61078*EXP(17.2694*T/(T+237.3)) 

543  C SATURATION  HUMIDITY  RATIO  (KG  H20/KG  AIR) 

544  SHR(T,P)=0.62198/((P/SVP(T))-1.) 

545  C 

546  C * PARAMETERS  * 

547  C 

548  C SET  MODE  = 1 FOR  DIRECT  CONTACT;  =2  FOR  DIRECT  CONTACT  ONLY 

549  C WHEN  INTERFACE  TEMP  IS  BELOW  DEW  POINT. 

550  M0DE=PARI(1)  + .1 

551  C 

552  C FLOW  DIRECTION  (+1  FOR  PARALLEL;  -1  FOR  COUNTER  FLOW) 

553  DIRFL=PARI(2) 

554  C 

555  C CROSS-SECTIONAL  AREA  (M2) 


} 

I 


1 
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556 

ACS=PARI(3) 

557 

C 

558 

C 

ACTUAL  LENGTH  (M) 

j 

I 

559 

LACT=PARI(4) 

560 

C 

561 

C 

HEAT  CAPACITY  OF  LIQUID  (J/(KG*C)) 

■ 

562 

C=PARI(5) 

563 

C 

' 

564 

C 

* INPUTS  * 

' 

565 

C 

1 

566 

C 

GET  AVERAGE  FLOW  RATES  (KG/S)  AND  SCALE  UP  TO 

ACTUAL  FLOW  RATES 

567 

C 

THROUGH  THE  EXCHANGER  FOR  THE  FRACTION  OF  TIME  IT  IS  ON  i 

568 

FA=XIN(2) 

1 

1 

569 

FL=XIN(5) 

1 

570 

GAM=XIN(8) 

! 

571 

IF(GAM.LT.  l.E-6)  GOTO  20 

572 

FA=FA/GAM 

1 

573 

FL=FL/GAM 

1 

574 

IF(FA.LT.  l.E-6  .OR.  FL.LT.  l.E-6)  GOTO  20 

I 

575 

C 

1 

1 

576 

C 

INLET  AIR  TEMPERATURE  (C) , HUMIDITY  RATIO  (KG/KG)  ' 

577 

TA1=XIN(1) 

1 

1 

578 

GA  = FA/ ACS 

1 

1 

579 

WA1=XIN(3) 

1 

580 

C 

581 

C 

INLET  LIQUID  TEMP  (C) 

582 

TWIN=XIN(4) 

583 

GL=FL/ACS 

584 

C 

585 

C 

BAROMETRIC  PRESSURE  (KPA) 

586 

PRSR=XIN(6) 

587 

C 

588 

C 

INITIALIZE  FOG  FLAG 

589 

IF0G=H-1 

590 

C 

591 

C 

592 

C 

COMPUTE  MASS  AND  HEAT  TRANSFER  COEFFICIENTS, 

METAL  RESISTANCE 

593 

KDAM  = PARI(6)*(GA**PARI(7))*(GL**PARI(8)) 

594 

HAAH  = KDAM*(1005.  + 1859. *WA1) 

595 

HLAH  = PARI(9)*(GA**PARI(10))*(GL**PARI(11)) 

596 

RL  = l./HLAH 

597 

RM  = PARI(12) 

598 

U « l./(RL  + RM) 

599 

C 

600 

C 

601 

C 

IF  HAVE  PARALLEL  FLOW,  CAN  STEP  THROUGH  ONCE 

AND  RETURN 

602 

IF(DIRFL.NE.l.)  GOTO  2 

603 

TW1=TWIN 

604 

ASSIGN  1 TO  JBACK 

605 

GOTO  700 

1 


206 
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606 

607 

608  C 

609  C 

610 
611 
612 

613 

614 

615 

616  C 

617 

618 

619 

620  C 

621  C 

622 

623 

624  C 

625  C 

626 

627 

628 

629 

630  C 

631  C 

632 

633 

634  C 

635 

636 

637 

638  C 

639  C 

640 

641 

642  C 

643  C 

644 

645 

646 

647 

648  C 

649  C 

650 

651 

652 

653 

654 

655  C 


1 TWOUT  =TW2 

GOTO  15 

HAVE  COUNTER  FLOW.  INITIALIZE  OLD  WATER  TEMPS,  FUNCTION  VALUE 

2 TWOLR=(TWIN+TAl)/2. 

TWOLD=TWOLR  +0.1 
TW1=TW0LR 
ASSIGN  3 TO  JBACK 
GOTO  700 

3 FOLR=TW2-TWIN 

IF(TIME.GE.FTRACE  .AND.  TIME. LE.S TRACE)  WRITE (KOUT, 11) 

11  FORMATC"  ITTW",4X,”TWNEW”,8X, 

1 "TWOLD” , 8X, "TWOLR" , 8X , "FOLD" , 9X , "FOLR" ) 

START  OF  ITERATION  LOOP  FOR  COMPUTING  WATER  TEMPERATURE 
ITTW=0 

4 ITTW=ITTW  + 1 

COMPUTE  OLD  FUNCTION  VALUE 
TW1=TW0LD 
ASSIGN  5 TO  JBACK 
GOTO  700 

5 FOLD=TW2-TWIN 


NEW  WATER  TEMP  ESTIMATE 
IF(ABS(FOLD-FOLR).LT.  l.E-10)  GOTO  6 
TWNEW=TWOLD  - FOLD*(TWOLD-TWOLR)/(FOLD-FOLR) 

IF(TIME.GE.FTRACE  .AND.  TIME .LE . S TRACE)  WRITE (KOUT, 12)  ITTW, 
1 TWNEW, TWOLD, TWOLR, FOLD, FOLR 
12  F0RMAT(1H  ,I3,5E13.5) 

TEST  FOR  CONVERGENCE 
IF(ABS(TWNEW-TWOLD).LT.  0.01)  GOTO  8 
IF(ITTW.GT.20)  GOTO  6 

CONVERGENCE  NOT  ATTAINED,  GO  BACK  FOR  ANOTHER  ITERATION 
TWOLR»TWOLD 
TWOLD=TWNEW 
FOLR=FOLD 
GOTO  4 


CONVERGENCE  NOT  ATTAINED,  WRITE  ERROR  MESSAGE  AND  CONTINUE 

6 WRITE (KOUT, 7)  TIME, ITTW, TWOLR, TWOLD, FOLR, FOLD 

7 FORMATC  ***  WARNING  - CONVERGENCE  NOT  ATTAINED  IN  LXCHNR  ***"/ 


TIME  = ",E13.6," 
TWOLR  = ",E13.6, 
FOLR  =>  ",E13.6, 


NO.  OF  ITERATIONS 
TWOLD  = ",E13.6/ 
FOLD  = ",E13.6) 
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656  C CONVERGENCE  OBTAINED 

657  8 TW0UT=TW1 

658  C 

659  15  IF(IF0G  .EQ.  -1)  WRITE(K0UT,9) 

660  9 FORMATC  FOG  ENCOUNTERED  IN  LXCHNR”) 

661  C 

662  C * OUTPUTS  SCALED  TO  AVERAGE  TIME  OF  OPERATION  * 

663  C 

664  C AIR  EXIT  TEMPERATURE  (C) 

665  0UTI(1)=TA1  + GAM*(TA2-TA1) 

666  C 

667  C AIR  FLOW  RATE 

668  OUTI(2)»XIN(2) 

669  C 

670  C AIR  EXIT  HUMIDITY  RATIO 

671  0UTI(3)»WA1  + GAM*(WA2-WA1) 

672  C 

673  C LIQUID  TEMPERATURE  OUT  (C) 

674  0UTI(4)=TWIN  + GAM*(TWOUT-TWIN) 

675  C 

676  C LIQUID  FLOW  RATE 

677  0UTI(5)=X1N(5) 

678  C 

679  C TOTAL  HEAT  TRANSFER  RATE  FROM  WATER  TO  AIR  (+)  OR  AIR  TO  WATER  (-) 

680  C (J/S) 

681  0UTI(6)=(TWIN-TW0UT)*C*FL*GAM 

682  C 

683  C RATE  EVAPORATION  (+)  OR  CONDENSATION  (-)  (KG/S) 

684  0UTI(7)»(WA2-WA1)*FA*GAM 

685  C 

686  RETURN 

687  C 

688  C HAVE  ZERO  FLOW  RATES 

689  20  DO  21  1=1,5 

690  21  0UT1(I)»X1N(I) 

691  0UTI(6)=0. 

692  0UTI(7)=0. 

693  RETURN 

694  C 

695  C 

696  C 

697  700  CONTINUE 

698  C 

699  C 

700  C 

701  C 

702  C 

703  C 

704  C 

705  C 


ROUTINE  FOR  STEPPING  THROUGH  EXCHANGER  WITH  KNOWN  AlR 
ENTRANCE  TEMPERATURE  AND  HUMIDITY  RATIO.  WATER  TEMPERATURE 
AT  THE  AIR  ENTRANCE  MUST  ALSO  BE  GIVEN. 

TAl  - ENTERING  AIR  TEMP  (C) 

WAl  - ENTERING  AIR  HUMIDITY  RATIO 

TWl  - WATER  TEMP  AT  AIR  ENTRANCE 

DIRFL  - FLOW  DIRECTION  (+1  PARALLEL,  -1  COUNTER) 
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706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 


LACT  - LENGTH  OF  COLUMN  (M) 

U,  KDAM,  HAAH  - TRANSFER  COEFFICIENTS 

C - LIQUID  HEAT  CAPACITY 

MODE  - 1 DIRECT  CONTACT,  2 NON-CONTACT 

TA2  - EXIT  AIR  TEMP 

WA2  - EXIT  AIR  HUMIDITY  RATIO 

TW2  - WATER  TEMP  AT  AIR  EXIT 

INITIALIZE  NUMBER  OF  SEGMENTS  AND  INCREMENTAL  LENGTH 
NLS=20 

DELL=LACT/FLOAT(NLS ) 

INITIALIZE  CONDITIONS  ENTERING  FIRST  SEGMENT 
TAJ=TA1 
WAJ=WA1 
TWJ=TW1 
TI0LD=TW1 

CA=KDAM*DELL/9A 

CL=U*DELL/(GL*C*DIRFL) 

START  LOOP  FOR  STEPPING  THROUGH  EXCHANGER 
DO  799  J=1,NLS 

LATENT  HEAT  OF  VAPORIZATION  AND  HUMID  HEAT  CAPACITY 
HVAP=2.501E6  - 2381. *TWJ 
CPM=1005.  + 1859. *WAJ 
HK=HVAP*KDAM 

START  LOOP  FOR  COMPUTING  INTERFACE  TEMPERATURE 
ITER=0 

720  ITER=ITER  + 1 

COMPUTE  OLD  HUMIDITY  RATIO  AND  SLOPE 
WSAT=SHR(TIOLD,PRSR) 

WIOLD=WSAT 

IF(MODE.EQ.2  .AND.  WSAT.GT.WAJ)  WIOLD=WAJ 
DWDT=0. 

IF(MODE.EQ.l  .OR.  WSAT.LT.WAJ)  DWDT  = 

1 WSAT*(1.  + WSAT/0.62198)*Uo98.03/(TIOLD+237.3)**2) 

COMPUTE  ESTIMATE  OF  TINEW 

TINEW=U*TWJ  + HAAH*TAJ  + HK*DWDT*TIOLD  - HK*(WIOLD-WAJ) 
TINEW=TINEW/(U  + HAAH  + HK*DWDT) 

TEST  FOR  CONVERGENCE 
IF(ABS(TINEW-TIOLD)  .LT.  0.01)  GOTO  723 
IF(ITER.GT.ITMAX)  GOTO  721 
TIOLD=TINEW 
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756 

757  C 

758  C 

759 

760 

761 

762 

763 

764  C 

765  C 

766 

767 

768  C 

769  C 

770 

771 

772 

773  C 

774  C 

775 

776 
777A 
777BC 
777C 

778 

779 

780 

781  C 

782  C 

783  C 

784 

785 

786 

787  C 

788 

789  C 

790  C 

791  C 

792 

793 

794 

795  C 

796 

797  C 

798  C- 

799  C 

800 


GOTO  720 

CONVERGENCE  PROBLEMS 

721  WRITE(KOUT,722)  TIME, J, ITER, TAJ, WAJ,TWJ,TIOLD,TINEW 

722  FORMATC"  WARNING  - CONVERGENCE  PROBLEM  IN  LXCHNR”/ 

1 " TIME  = ",E13.5,”  SEGMENT", 13,"  ITERATION" ,13/ 

2 " TAJ  = ",E13.5,"  WAJ  = ",E13.5,"  TWJ  = ",E13.5/ 

3 " TIOLD  = ",E13.5,"  TINEW  = ",E13.5) 

CONVERGENCE  ATTAINED 

723  WI=SHR(TINEW,PRSR) 

IF(MODE.EQ.2  .AND.  WI.GT.WAJ)  WI=WAJ 

HAVE  INTERFACE  CONDITIONS.  COMPUTE  CHANGES  THROUGH  THE  SEGMENT. 
TAJP1=TAJ  + CA*(TINEW-TAJ) 

WAJP1=WAJ  + CA*(WI-WAJ) 

TWJP1=TWJ  + CL*(TINEW-TWJ) 

CHECK  FOR  FOG  FORMATION,  ADJUST  IF  NECESSARY 
WSAT=SHR(TAJP1 ,PRSR) 

IF(WAJPl.LE.WSAT)  GOTO  724 
IFOG=-l 

SEP84  BUG  CORRECTION 

DWDT=WSAT*(l.+WSAT/0.62198)*(4098.03/(TAJPl+237.3)**2) 

CF=CPM/ (HVAP*DWDT) 

WAJP1=(CF*WSAT  + WAJP1)/(CF  +1.) 

TAJP1=TAJP1  + (WAJP1-WSAT)/DWDT 

SET  EXIT  CONDITIONS  FOR  J TH  SEGMENT  TO  BE  THE  ENTRANCE 
CONDITIONS  FOR  THE  NEXT  SEGMENT 

724  TAJ=TAJP1 

WAJ=WAJP1 

TWJ=TWJP1 

799  CONTINUE 

HAVE  STEPPED  THROUGH  ENTIRE  EXCHANGER.  SET  OUTPUT 
VARIABLES . 

TA2=TAJP1 

WA2=WAJP1 

TW2=TWJP1 

GOTO  JBACK 


END 
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801  C 

802  SUBROUTINE  TANK 

803  C 

804  C TYPE  11  WATER  STORAGE  TANK 

805  C 

806  C THIS  SUBROUTINE  SIMULATES  A STRATIFIED  STORAGE  TANK  CONSIST 

807  C OF  NEQ  FULLY  MIXED  SECTIONS,  THE  VALUE  OF  NEQ  BEING  CHOSEN  BY 

808  C THE  USER. 

809  C 

810  C REFERENCE:  "EXPERIMENTAL  AND  SIMULATED  PERFORMANCE  OF  A CLOSED 

811  C LOOP  SOLAR  WATER  HEATING  SYSTEM"  BY  P.I.  COOPER,  S.A.  KLEIN,  AND 

812  C C.W.S.  DIXON  PRESENTED  AT  THE  ISES  MEETING  IN  AUGUST,  1975. 

813  C 

814  C VOL 

815  C NEQ 

816  C CPF 

817  C RHOF 

818  C HIGH 

819  C U 

820  C FLWSS 

821  C TIN 

822  C FLWLL 

823  C TL 

824  C UA 

825  C 

826  C 

827  C ADAPTED  FROM  KLEIN  ET  AL.,  "TRNSYS  - A TRANSIENT 

828  C SIMULATION  PROGRAM,"  UNIVERSITY  OF  WISCONSIN  - MADISON, 

829  C ENGINEERING  EXPERIMENT  STATION  REPORT  38,  1976. 

830  C 

831  COMMON  TIME,XIN(40),OUTI(80),TI(10),DTDTI(10),PARI(99) 

832  COMMON  ETOL,ITMAX,NTIMES,FTRACE, STRACE,DELT,HDELT 

833  COMMON/FILES/ INDATA , KLMIT , KOUT , LUTERM 

834  DIMENSION  Sl(lO) ,S2(10) ,XMIX(10) ,CC(10) ,CL(10) 

835  REAL  MSCP 

836  C 

837  NEQ=PARI(1)  + .1 

838  XNEQ=NEQ 

839  V0L=PARI(2) 

840  HIGH=PARI(3) 

841  CPF=PARI(4) 

842  RH0F=PARI(5) 

843  U=PARI(6) 

844  TAVGO=PARI(7) 

845  QHE=»PARI(8) 

846  LOC=PARI(9)  + .1 

847  LOCT=PARI(10)  + .1 

848  TSET=PARI(11) 

849  IETA=‘PARI(12)  + .1 

850  C 


- TOTAL  VOLUME  OF  TANK  (M3) 

- NUMBER  OF  EQUAL  VOLUME  SECTIONS 

- SPECIFIC  HEAT  OF  FLUID  IN  TANK  (J/KG  C) 

- DENSITY  OF  TANK  FLUID  (KG/M3) 

- TANK  HEIGHT  (M) 

- LOSS  COEFFICIENT  (W/M2  C) 

- FLOW  RATE  FROM  HEAT  SOURCE  (KG/S) 

- TEMPERATURE  FROM  HEAT  SOURCE  (C) 

- FLOW  RATE  TO  LOAD  (MAKEUP  FLUID  FLOW  RATE)  (KG/S) 

- TEMP  OF  FLUID  REPLACING  THAT  EXTRACTED  TO  SUPPLY  LOAD  (C) 

- TANK  HEAT  LOSS  COEFFICIET  MULTIPLIED  BY  SURFACE  AREA 
(W/C) 
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851 

MSCP=VOL*RHOF*CPF 

852 

PI=3. 14159 

853 

DIA=SQRT((4.*VOL)/(PI*HIGH)) 

854  C 

855  C 

TANK  LOSS  COEFFICIENTS  FOR  SIDE  SEGMENTS 

856 

UAS= ( PI*DIA*HIGH/XNEQ) *U 

857 

UAE=(PI*(DIA**2)/4.)*U 

858  C 

859 

TIN=XIN(1) 

860 

FLWSS=XIN(2) 

861 

TL=XIN(3) 

862 

FLWLL=XIN(4) 

863 

TENV=XIN(5) 

864 

QBOOST=QHE 

865  C 

866  C 

CHECK  EXTERNAL  CONTROL 

867 

IF(IETA,EQ.l)  QBOOST=QHE*XIN(6) 

868  C 

CHECK  INTERNAL  THERMOSTAT  CONTROL 

869 

IF(TI(LOCT).GE.TSET+l.)  GOTO  5 

870 

IF(TI(LOCT).LE.TSET-l.)  GOTO  6 

871  C 

INTERPOLATE  W/I  2 DEG  DEAD  BAND 

872 

GAMTS=(TI(LOCT)-TSET-l . ) /2 . 

873 

GAMTS=GAMTS*3 . 14159-1 . 5708 

874 

GAMTS=.5  + SIN(GAMTS)/2. 

875 

GOTO  7 

876 

5 

GAMTS=0. 

877 

GOTO  7 

878 

6 

GAMTS=1 . 

879 

7 

QBOOST=QBOOST*GAl^lTS 

880  C 

881 

FLWS=FLWSS*CPF 

882 

FLWL=FLWLL*CPF 

883 

IF(NEQ.EQ.l)  GOTO  300 

884 

QENV=0 . 

885 

CC(1)=0. 

886 

CL(1)=0. 

887 

D1=ABS(TI(1)-TIN) 

888 

Kl=l 

889 

D2=ABS(TI(1)-TL) 

890 

K2=l 

891 

DO  4 J=2,NEQ 

892 

CC(J)=0. 

893 

CL(J)=0. 

894 

IF(ABS(TI(J)-TIN).GT.D1)  GOTO  62 

895 

K1=J 

896 

D1=ABS(TI(J)-TIN) 

897 

62 

CONTINUE 

898 

IF(ABS(TI(J)-TL).GT.D2)  GOTO  4 

899 

K2=J 

900 

D2=ABS(TI(J)-TL) 

212 
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901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 
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4 CONTINUE 

IF(TIN.GE.TI(1))  Kl=l 
IF(TL.LE.TI(NEQ))  K2=NEQ 
IF(Kl.EQ.NEQ)  K1=NEQ-1 
IF(K2.EQ.  1)  K2=2 
CC(K1)=1. 

CL(K2)=1. 

S1(1)=0. 

S2(NEQ+1)=0. 

DO  150  J=2,NEQ 
S1(J)=S1(J-1)+CC(J“1) 

K=NE0+-2-J 

S2(K)=S2(K+1)+CL(K) 

150  CONTINUE 

XMIX(1)=0. 

DO  151  J=2,NEQ 

XMIX(J)=S1(J)*FLWS-S2(J)*FLWL 

151  CONTINUE 

TAVG=0. 

DO  3 J=1,NEQ 
UA=UAS 

IF  (J.EQ.l)  UA=UA+UAE 

IF  (J.EQ.NEQ)  UA=UA  + UAE 

DTDTI(J)=CC(J)*FLWS*(TIN-TI(J)) 

DTDTI(J)=DTDTI(J)  + CL( J)*FLWL*(TL-TI( J) ) 

IF(XMIX(J).GT.O.)  DTDTI(J)-DTDTI(J)  + XMIX(J)*(TI(J-1)-TI( J)) 
K=J+1 

IF(K.GT.NEQ)  GOTO  162 

IF(XMIX(K).LT.O.)  DTDTI(J)=«DTDTI(J)  - XMIX(K)*(TI(J+1)-TI(J)) 
162  DTDTI(J)=DTDTI(J)  + UA*(TENV-TI(J)) 

QENV=QENV  - UA*(TENV-TI( J) ) 

TAVG-TAVG  + TI(J) 

3 CONTINUE 

TAVG=TAVG/XNEQ 
QB=QBOOST/ FLOAT (LOC ) 

DO  11  J=1,NEQ 
QB1=QB 

IF(J.GT.LOC)  QB1=0. 

DTDTI ( J )= (DTDTI ( J )+QB) /MSCP*XNEQ 
QTANK=FLWL* ( TI ( 1 )-TL) 

11  CONTINUE 

170  DELAU=(TAVG-TAVGO)*MSCP 
C 

C TI(1)  - TEMP  FROM  TOP  TANK  SECTION  TO  LOAD 

C FLWL  - FLOW  RATE  TO  LOAD 

C TI(NEQ)  - TEMP  TO  HEAT  SOURCE 

C QENV  - ENERGY  LOST  TO  SURROUNDINGS 

0UTI(1)=TI(NEQ) 

0UTI(2)=FLWSS 

0UTI(3)=TI(1) 
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0UTI(4)=FLWLL 

952 

OUTI(5)=QENV 

953 

0UTI(6)=QTANK 

954 

0UTI(7)=DELAU 

955 

0UTI(8)=QB00ST 

956  C 

957 

RETURN 

958  C 

959  C 

ONE  NODE  TANK 

EQUATIONS 

960  300 

UA=UAS  + 2.*UAE 

961 

QENV=UA*(TI(1)- 

-TENV) 

962 

QTANK=FLWL* ( TI ( 1 )-TL) 

963 

DTDTI(l)=(FLWS*(TIN-TI(l))-( 

964 

TAVG=TI(1) 

965 

GOTO  170 

966 

END 

10:51  AM  TUE.,  30  NOV., 


1982 
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967  C 

968  SUBROUTINE  RSVOR 

969  C 

970  C TYPE  13  INFINITE  VOLUME  STORAGE  RESERVOIR 

971  C 

972  C THIS  SIMPLE  PROGRAM  IS  AN  INFINITE  SUPPLY  OF  CONSTANT 

973  C TEMPERATURE  WATER  OR  WHATEVER. 

974  C 

975  C THIS  DEVICE  CAN  BE  USED  TO  SET  THE  VALUES  OF  VARIABLES 

976  C TO  THE  VALUES  OF  PARAMETERS  WHICH  DO  NOT  CHANGE  DURING  THE 

977  C COURSE  OF  A RUN.  THE  TOTAL  NUMBER  OF  PARAMETERS  MUST  BE  PARI(l). 

978  C THE  NUMBER  OF  OUTPUTS  IS  ONE  LESS  THAN  THE  NUMBER  OF  PARAMETERS. 

979  C 

980  C PROGRAMMED  BY  B.  A.  KIMBALL,  U.  S.  WATER  CONSERVATION 

981  C LABORATORY,  PHOENIX,  ARIZOt^A.  1979. 

982  C 

983  COMMON  TIME,XIN(40) ,OUTI(80) ,TI(10) ,DTDTI(10) ,PARI(99) 

984  NP=PARI(1)  + .1 

985  DO  1 1=1, NP 

986  0UTI(I)=PARI(I+1) 

987  1 CONTINUE 

988  RETURN 

989  END 
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990  C 

991 

992  C 

993  C 

994  C 

995  C 

996  C 

997  C 

998  C 

999  C 

1000  C 

1001  C 

1002  C 

1003  C 

1004  C 

1005  C 

1006  C 

1007  C 

1008  C 

1009  C 

1010  C 

1011  C 

1012  C 

1013  C 

1014  C 

1015  C 

1016  C 

1017  C 

1018  C 

1019  C 

1020  C 

1021  C 

1022 

1023 

1024  C 

1025 

1026 

1027 

1028 

1029 

1030  C 

1031  C 

1032 

1033  C 

1034 

1035 

1036 

1037 

1038 

1039 


SUBROUTINE  TIMFN 

TYPE  12  TIME  DEPENDENT  FORCING-FUNCTION 

THIS  SUBROUTINE  GENERATES  TIME  DEPENDENT  DATA,  SO  THAT  SOME 
VARIABLE  IS  FORCED  TO  FOLLOW  A FIXED  COURSE  WITH  TIME. 

PARI(I)  MUST  CONTAIN  THE  TOTAL  NUMBER  OF  PARAMETERS. 

PARI(2)  MUST  CONTAIN  THE  TIME,  AND 

PARI(3)  MUST  CONTAIN  THE  FUNCTION  VALUE  OF  A FIRST  DEFINING 
POINT. 

PARI(4)  AND  PARI(5)  SIMILARLY  DEFINE  A SECOND  POINT. 
PARI(2*I)  AND  PARI(2*I+1)  SIMILARLY  DEFIND  ADDITIONAL 
POINTS  UP  TO  A TOTAL  POSSIBLE  OF  29. 

THE  ROUTINE  WILL  COMPUTE  THE  POSITION  THE  PRESENT  TIME  IS  I 
THE  CYCLE  UNDER  THE  ASSUMPTION  THE  CYCLE  IS  REPETITIVE. 

TWO  SUCCESSIVE  POINTS  CAN  HAVE  THE  SAME  TIME  VALUE  TO  DEFIN 
A STEP  CHANGE.  IN  THIS  CASE  THE  FUNCTION  VALUE  OF  THE  FIRST 
POINT  GIVEN  IN  THE  PARAMETER  SEQUElJCE  WILL  THE  USED  FOR 
INTERPOLATING  IF  TIME  .LE.  THE  TIME  AT  THE  STEP  AND  VICE  VERSA. 

FOR  A REPETITIVE  CYCLE,  THE  FUNCTION  VALUE  FOR  THE 
FIRST  POINT  MUST  EQUAL  THE  VALUE  OF  THE  LAST  POINT  TO  AVOID 
A STEP  CHANGE. 

ADAPTED  FROM  KLEIN  ET  AL. , "TRNSYS  - A TRANSIENT 
SIMULATION  PROGRAM,"  UNIVERSITY  OF  WISCONSIN  - MADISON, 

ENGINEERING  EXPERIMENT  STATION  REPORT  38,  1976. 

COMMON  TIME,XIN(40) ,0UTI(80) ,TI(10) »DTDTI(10) ,PARI(99) 

COMMON/FILES/ INDATA, KLMIT , KOUT , LUTERM 

N=(INT(PARI(1)  + .1)  - l)/2 
T0=PARI(2) 

TT=PARI(2*N) 

CT=TT-TO 

RTIME=TIME 

TEST  IF  TIME  IS  BEFORE  STARTING  TIME  FOR  THE  DEFINED  CYCLE. 
IF(TIME.GE.TO)  GOTO  3 

ADD  CYCLES  TO  TIME  UNTIL  IT  IS  W/I  DEFINED  RANGE. 

ICT=0 
ICT=ICT+1 
RTIME=RTIME+CT 
IF(RTIME.GE.TO)  GOTO  5 
IF(ICT,GT.366)  GOTO  2 
GOTO  1 
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f 1040 

C 

1041 

C 

WRITE  ERROR  MESSAGE 

1042 

2 WRITE(K0UT,8)  TIME 

1043 

8 

FORMAT("  ***  ERROR  TIMFN  - UNREASONABLE  TIME  = ",E14.6) 

1044 

RETURN 

1045 

C 

1046 

C 

TEST  IF  TIME  IS  AFTER  TIME  FOR  DEFINED  RANGE  OR  CYCLE. 

1047 

3 

IF(TIME.LE.TT)  GOTO  5 

1048 

C 

SUBTRACT  CYCLES  UNTIL  TIME  IS  W/I  DEFINED  RANGE 

1049 

ICT=0 

, 1050 

4 

ICT=ICT+1 

1051 

RTIME=RTIME-CT 

1052 

IF(RTIME.LE.TT)  GOTO  5 

1053 

IF(ICT.GT.366)  GO  TO  2 

1054 

GOTO  4 

1055 

C 

i 1056 

C 

FIND  WHICH  DEFINING  POINTS  RTIME  LIES  BETWEEN 

1 1057 

5 

M=2 

1058 

6 

M=M+2 

1059 

IF(RTIME.LE.PARI(M))  GOTO  7 

1060 

GOTO  6 

1061 

C 

! 1062 

C 

HAVE  TIME  SPANNED  BY  DEFINING  POINTS 

1063 

7 

F1=PARI(M-1) 

1064 

F2=PARI(M+1) 

1065 

Tl=PARI(M-2) 

1066 

T2=PARI(M) 

1067 

C 

1068 

C 

COMPUTE  FUNCTION  VALUE  USING  LINEAR  INTERPOLATION 

1069 

F=F1+  (F2-F1)*(RTIME-T1)/(T2-T1) 

1070 

OUTI(l)=F 

1071 

OUTI(2)=l.  - F 

1072 

RETURN 

1073 

END 

I 

I 

I 

I 


I 

I 
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1074  C 

1075  SUBROUTINE  HEATR 

1076  C 

1077  C TYPE  16  HEATER  OR  FURNACE 

1078  C 

1079  C THE  HEATER  IS  MODELED  BY  SPECIFYING  THE  MAXIMUM 

1080  C RATE  OF  SENSIBLE  ENERGY  OUTPUT  (WATTS)  THE 

1081  C HEATER  IS  CAPABLE  OF  DELIVERING  IN  PARI(l),  AND  THE  MAXIMUM 

1082  C RATE  OF  WATER  VAPOR  PRODUCTION  (KG/S)  IN  PARI(3). 

1083  C THE  TEMPERATURE  RISE  THROUGH  THE  HEATER  IS  THE  PRODUCT 

1084  C OF  THE  CONTROL  VARIABLE  IN  XIN(4)  TIMES  THE  SENSIBLE 

1085  C HEAT  DIVIDED  BY  THE  MAXIMUM  FLOW  RATE  AND  THE  HEAT  CAPACITY  OF 

1086  C AIR.  THE  HUMIDITY  RATIO  RISE  IS  THE  PRODUCT  OF 

1087  C THE  CONTROL  VARIABLE  AND  WATER  PRODUCTION  RATE  DIVIDED  BY  THE  MAX 

1088  C FLOW  RATE.  AFTER 

1089  C THE  CONTROL  VARIABLE  GOES  TO  ZERO,  THE  FLOW  RATE  IS  SET  EQUAL 

1090  C TO  ZERO  ALSO,  OTHERWISE  IT  FLOWS  AT  THE  RATE  SPECIFIED  IN  PARI(2). 

1091  C 

1092  C PROGRAMMED  BY  B.  A.  KIMBALL,  U.  S.  WATER  CONSERVATION 

1093  C LABORATORY,  PHOENIX,  ARIZONA.  1979. 

1094  C 

1095  COMMON  TIME,XIN(40) ,OUTI(80) ,TI(10) ,DTDTI(10) ,PARI(99) 

1096  COMMON/FILES / INDATA, KLMIT , KOUT , LUTERM 

1097  OUTI(l)=XIN(l)  + XIN(4)*PARI(1)/(PARI(2)*(1005.+1859.*XIN(3))) 

1098  OUTI(2)=PARI(2) 

1099  IF(XIN(4).LT.  l.E-10)  0UTI(2)=0. 

1100  OUTI(3)=XIN(3)  + XIN(4)*PARI(3)/(PARI(2)) 

1101  RETURN 

1102  END 
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1103  C 

1104 

1105  C 

1106  C 

1107  C 

1108  C 

1109  C 

1110  C 

1111  C 

1112  C 

1113  C 

1114  C 

1115 

1116 

1117  C 

1118  C 

1119 

1120  C 

, 1121  C 

1122 

1123  C 

1124  C 

1125 

1126 

I 1127  C 

1128  C 

1129 

1130 

I 1131  C 
[ 1132  C 

1133 

1134 

1135 

1136  C 

1137  C 

1138 

1139  C 

1140 

1141 

1142 

1143 

1144 

1145  C 

1146  C 

' 1147 

1148  C 

1149  C 

1150 

1151 

1152  C 


SUBROUTINE  COOLR 

TYPE  18  EVAPORATIVE  AIR  COOLER 

THIS  SUBROUTINE  SIMULATES  THE  PERFORMANCE  OF  AN  EVAPORATIVE 
AIR  COOLER.  THE  AIR  FLOW  COMING  OUT  IS  THE  PRODUCT  OF  THE 
MAXIMUM  FLOW  RATE  AND  A CONTROL  VARIABLE. 

PROGRAMMED  BY  B.  A.  KIMBALL,  U.  S.  WATER  CONSERVATION 
LABORATORY,  PHOENIX,  ARIZONA.  1979. 

COMMON  TIME,XIN(40) ,OUTI(80) ,TI(10) ,DTDTI(10) ,PARI(99) 
COMMON/FILES/INDATA, KLMIT , KOUT , LUTERM 

SATURATION  VAPOR  PRESSURE  (KPA  FROM  C - TETENS  EQN) 
SVP(T)=0.61078*EXP(17.2694*T/(T+237.3)) 

SATURATION  HUMIDITY  RATIO  (KG/KG) 

SHR(T,P)=0.62198/((P/SVP(T))  - 1.) 

HUMIDITY  RATIO  (KG/KG) 

HR(TD,TW,P)=(SHR(TW,P)*(2468.E3  - 2328. *TW)  - 1005.*(TD-TW))/ 

1 (2468. E3  + 1859. *TD  - 4186. *TW) 

MAX  AIR  FLOW  RATE  SATURATION  EFFICIENCY 
FMAX=PARI(1) 

SEFF=PARI(2) 

INLET  DRY  BULB  TEMP,  WET  BULB,  BAROMETRIC  PRESSURE 
TDI=XIN(1) 

TW=XIN(3) 

PRSR=XIN(5) 

FLOW  RATE 

OUTI(2)=FMAX*XIN(4) 

IF(XIN(4).GT.  0.)  GOTO  1 

0UTI(1)=TDI 

0UTI(3)=0. 

0UTI(4)=0. 

RETURN 

OUTPUT  TEMPERATURE 
1 0UTI(1)=  TDI  - SEFF*(TDI-TW) 

OUTPUT  HUMIDITY  RATIO 
WO=HR(OUTI ( 1 ) , TW , PRSR) 

0UTI(3)=W0 
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1153  C 

EVAPORATION  RATE  (KG/S) 

115A 

WI-HR(TDI,TW,PRSR) 

1155 

OUTI ( 4 )=OUTI ( 2 ) * ( WO-WI ) 

1156  C 

1157 

RETURN 

1158 

END 

PAGE  33  FTN.  OPTS:  LYI  10:51  AM  TUE.,  30  NOV.,  1982 


1159  C 

1160 

1161  C 

1162  C 

1163  C 

1164  C 

1165  C 

1166  C 

1167  C 

1168  C 

1169  C 

1170  C 

1171  C 

1172  C 

1173  C 

1174  C 

1175  C 

1176  C 

1177 

1178 

1179 

1180  C 

1181  C 

1182 

1183 

1184  C 

1185  C 

1186 

1187  C 

1188  C 

1189 

' 1190  C 

1191  C 

1192 

1193 

1194 

1195 

1196 
' 1197 

1198  C 
i 1199  C 
; 1200  300 

1201 
1202 
! 1203 
i 1204  C 
' 1205  C 
1206  C 
I 1207  C 
■ 1208  30 


SUBROUTINE  ARITH 

TYPE  20  ARITHMETIC  OPERATOR 

THIS  SUBROUTNE  PERFORMES  ARITHMETIC  OPERATIONS 
ON  TWO  OR  MORE  INPUTS  AS  SPECIFIED  BY  THE  PARAMETERS. 

NP  = NUMBER  OF  INSTRUCTIONS  =»  NUMBER  OF  PARAMETERS  - 2 
NI  = NUMBER  OF  INPUTS 
NSTK  = STACK  INDEX 

J = INSTRUCTION  (PARAMETER)  INDEX 
K = INPUT  INDEX 
lOP  = OPERATION  CODE 

ADAPTED  FROM  KLEIN  ET  AL.,  "TRNSYS  - A TRANSIENT 
SIMULATION  PROGRAM,"  UNIVERSITY  OF  WISCONSIN,  MADISON, 
ENGINEERING  EXPERIMENT  STATION  REPORT  38,  1976. 

COMMON  TIME,XIN(40),0UTI(80),TI(10),DTDTI(10),PARI(99) 
COMMON  FILES / FILE S / INDATA , KLMIT , KOUT , LUTERM 
DIMENSION  STACK(IO) 

GET  NUMBER  OF  ARITffiiETIC  PARAMETERS 
NP=PARI(1)  - 1.99 
IF(NP.LT.l)  GOTO  99 

GET  FIRST  OPERATING  CODE 
I0P=PARI(3)  + SIGN(.01,PARI(3)) 

CHECK  MODE  OF  OPERATION 
IF(IOP.LE.O)  GOTO  300 

HAVE  MODE  A:  SINGLE  OPERATION 
STACK(1)=XIN(1) 

STACK(2)=XIN(2) 

ISTK=2 

J=1 

IF(NP.NE.l)  GOTO  99 
GOTO  400 

HAVE  MODE  B:  MULTIPLE  OPERATIONS 
NI=PARI(2)  + .01 
ISTK=0 
K=0 
J=0 


START  OF  LOOP  FOR  STEPPING  THROUGH  THE  INSTRUCTIONS  GIVEN 
BY  THE  PARAMETERS. 

FIRST,  CHECK  IF  EA\~  COMPLETED  THE  REQUIRED  NO.  OF  INSTRUCTIONS. 
IF(J.GE.NP)  GOTO  40 
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1209 

1210  C 

1211  C 

1212 

1213 

1214  400 

1215 

1216 

1217  C 

1218  C 

1219  C 

1220  9 

1221 
1222 

1223 

1224 

1225 

1226  C 

1227  C 

1228  10 

1229 

1230 

1231 

1232 

1233 

1234  C 

1235  C 

1236  11 

1237 

1238 

1239 

1240  C 

1241  C 

1242  12 

1243 

1244 

1245 

1246 

1247  C 

1248  C 

1249  13 

1250 

1251 

1252 

1253  C 

1254  C 

1255  14 

1256 

1257 

1258 


J=J+1 

GET  NEXT  OPERATION  CODE.  GOTO  APPROPRIATE  STATEMENTS 
JP2=J+2 

I0P»PARI(JP2)  + SIGN(.01,PARI(JP2)) 

IF(I0P.LT.-1  .OR.  lOP.GT.lO)  GOTO  99 
IP2-IOP+2 

GOTO  (9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20), IP2 

CODE  IS  -1;  GET  VALUE  OF  NEXT  PARAMETER  AND  PLACE  ON 
STACK  AS  A CONSTANT. 

ISTK=ISTK+1 

IF(ISTK.GT.IO)  GOTO  99 
IF  (J.GE.NP)  GOTO  99 
J=J+1 

STACK(ISTK)=PARI(J+2) 

GOTO  30 

CODE  IS  0;  PUT  NEXT  INPUT  ON  STACK 
ISTK-ISTK+1 

IF(ISTK.GT.IO)  GOTO  99 
IF(K.GE.NI)  GOTO  99 
K=K+1 

STACK(ISTK)»XIN(K) 

GOTO  30 

CODE  IS  1;  MULTIPLY. 

ISTK=ISTK-1 
IF(ISTK.LT.l)  GOTO  99 
STACK(ISTK)=STACK(ISTK)*STACK(ISTK+1) 

GOTO  30 

CODE  IS  2;  DIVIDE. 

ISTK=ISTK-1 
IF(ISTK.LT.l)  GOTO  99 
IF(STACK(ISTK+1).EQ.  0.)  GOTO  97 
STACK( ISTK)=STACK( ISTK) / STACK( ISTK+1 ) 

GOTO  30 

CODE  IS  3;  ADD. 

ISTK=ISTK-1 
IF(ISTK.LT.l)  GOTO  99 
STACK(ISTK)=STACK(ISTK)+STACK( ISTK+1) 

GOTO  30 

CODE  IS  4;  SUBTRACT. 

ISTK=ISTK-1 
IF(ISTK.LT.l)  GOTO  99 
STACK( ISTK)=STACK( ISTK)-STACK( ISTK+1 ) 

GOTO  30 
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1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 


C 

C 


C 

C 


C 

C 


CODE  IS  5;  EXPOENTIATE. 

15  ISTK=ISTK-1 

IF(ISTK.LT.l)  GOTO  99 

STACK( ISTK)=STACK( ISTK) **STACK( ISTK+1 ) 
GOTO  30 

CODE  IS  6;  TAKE  LOGIO 

16  STACK(ISTK)=AL0G10(STACK(ISTK)) 

GOTO  30 

CODE  IS  7;  NEGATE. 

17  STACK(ISTK)=-STACK(ISTK) 

GOTO  30 


C 

C CODE  IS  8;  CHANGE  NEGATIVE  NUMBER  TO  ZERO. 

18  IF(STACK(ISTK).LT.  0.)  STACK(ISTK)=0 . 

GOTO  30 
C 

C CODE  IS  9;  LOGICAL  OR  SO  CHOOSE  LARGER 

19  ISTK=ISTK-1 
IF(ISTK.LT.l)  GOTO  99 

IF( STACK( ISTK+1 ) . GT . STACK( ISTK) ) STACK( ISTK)=STACK( ISTK+1 ) 
GOTO  30 
C 

C CODE  IS  10;  LOGICAL  AND  SO  CHOOSE  SMALLER 

20  ISTK=ISTK-1 
IF(ISTK.LT.l)  GOTO  99 

IF ( STACK( ISTK+1 ) . LT . STACK( ISTK) ) STACK( ISTK)=STACK( ISTK+1 ) 
GOTO  30 
C 

C HAVE  REACHED  BOTTOM  OF  STACK;  GET  OUTPUT  AND  RETURN. 

40  IF(ISTK.NE.  1)  GOTO  99 
OUTI(l)=STACK(l) 

OUTI(2)=l.  - OUTI(l) 

RETURN 


C WRITE  ERROR  MESSAGES 

99  WRITE (KOUT, 98) 

98  FORMATC*  ERROR  IN  THE  INSTRUCTIONS  TO  ARITH.  CHECK  PARAMETERS 
1 " MAXIMUM  NUMBER  OF  INSTRUCTIONS  IS  10.") 

STOP 

97  WRITE (KOUT, 96)  TIME , (XIN(I) , 1=1 ,NI) 

96  FORMATC"  DIVISION  BY  ZERO  IN  ARITH  AT  TIME  = ",F8.2/ 

1 " INPUTS  WERE:  ",30E13.5) 

STOP 

END 


/ 
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PAGE 


1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 
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C 

SUBROUTINE  OSTAT 
C 

C TYPE  21  ON-OFF  THERMOSTAT 

C 

C THIS  THERMOSTAT  IS  A SIMPLE  ON-OFF  DEVICE.  WHEN  THE 

C TEMPERATURE  (OR  OTHER  VARIABLE)  GIVEN  IN  XIN(l)  IS  LESS  THAN  A 

C SET  POINT  GIVEN  IN  PARI(l),  THE  VALUE  OF  OUTI(l)  IS  SET  EQUAL 

C TO  1.  AND  THE  VALUE  OF  0UTI(2)  IS  SET  EQUAL  TO  0.  WHEN  THE 

C TEMPERATURE  IS  GREATER  OR  EQUAL  TO  THE  SET  POINT,  THEY  ARE 

C SET  EQUAL  TO  0.  AND  1.,  RESPECTIVELY. 

C IF  THE  VALUE  OF  PARI(2)  IS  2,  A DIFFERENTIAL  MOSE  IS 

C USED  AND  THE  SET  POINT  IS  COMPARED  TO  XIN(1)-XIN(2) . 

C 

C PROGRAMMED  BY  B.A.  KIMBALL,  U.S.  WATER  CONSERVATION 

C LABORATORY,  PHOENIX,  ARIZONA.  MAY,  1980. 

C 

COMMON  TIME,  XIN(40) ,OUTI(80) ,TI(10) ,DTDTI(10) ,PARI(99) 

M0DE=PARI(2)  + .01 

T=XIN(1) 

IF(M0DE.EQ.2)  T=XIN(1)-XIN(2) 

0UTI(1)=0. 

IF(T.LT.  PARI(l))  0UTI(1)=1. 

0UTI(2)=1.-0UTI(1) 

RETURN 

END 
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1332  C 

1333 

1334  C 

1335  C 

1336  C 

1337  C 

1338  C 

1339  C 

1340  C 

1341  C 

1342  C 

1343  C 

1344  C 

1345  C 

1346  C 

1347  C 

1348  C 

1349  C 

1350  C 

1351  C 

1352  C 

1353  C 

1354  C 

1355  C 

1356  C 

1357  C 

1358  C 

1359  C 

1360  C 

1361  C 

1362  C 

1363  C 

1364  C 

1365  C 

1366  C 

1367  C 

1368  C 

1369  C 

1370  C 

1371  C 

1372  C 

1373  C 

1374 

1375 

1376 

1377 

1378 

1379  C 

1380 

1381  C 


SUBROUTINE  MSTAT 

TYPE  22  MULTISTAGE  THERMOSTAT 

THIS  SUBROUTINE  COMPARES  A TEMPERATURE  (OR  OTHER  INPUT 
VARIABLE)  GIVEN  IN  XIN(l)  WITH  A SERIES  OF  SET  POINTS  GIVEN  IN 
THE  PARAMETERS.  IT  THEN  COMPUTES  A CONTROL  VARIABLE  FOR  EACH 
STAGE  WHOSE  VALUE  RANGES  FROM  0.  TO  1.  VALUES  OF  THE  DEVIATIONS 
FROM  THE  SET  POINTS  AND  OF  THE  CONTROL  VARIABLES  FROM  PREVIOUS 
ITERATIONS  ARE  STORED  IN  THE  TMS  ARRAY  IN  LABELED  COMMON. 

USING  THE  CHANGE  IN  DEVIATION  FROM  SET  POINT  WITH  CHANGES  IN  VALUE 
OF  THE  CONTROL  VARIABLE,  A NEWTON-TYPE  ITERATION  IS  USED  TO  COMPUT 
THE  VALUE  OF  THE  CONTROL  VARIABLES  FROM  VALUES  USED  IN  PAST 
ITERATIONS.  IN  ORDER  TO  ACHIEVE  STABILITY,  HOWEVER, 

THE  SIZE  OF  THE  COMPUTED  CORRECTION  STEPS  IS  ALTERNATED  BETWEEN 
FULL  STEPS  AND  0.1  STEPS. 

ONLY  ONE  STAGE  IS  ALLOWED  TO  CONTROL  PROPORTIONALLY  AT  A 
TIME.  WHEN  THE  STAGES  ON  EACH  SIDE  OF  THE  INPUT  TEMPERATURE 
ARE  BOTH  TRYING  TO  CONTROL  PROPORTIONALLY,  CONTROL  IS  GIVEN 
TO  THE  HIGHER  STAGE  IF  THE  HIGHER  STAGE  IS  BELOW  THE  MASTER 
SET  POINT  IN  PARI(2),  WHICH  DIVIDES  HEATING  FROM  COOLING. 
CONVERSELY,  CONTROL  IS  GIVEN  TO  THE  LOWER  STAGE  IF  THE  HIGHER 
STAGE  IS  ABOVE  THE  MASTER  SET  POINT. 

THE  CODES  USED  ARE; 

MITER  - ITERATION  COUNTER 

TIMMST-  TIME  USED  TO  RESET  STORED  VALUES 

TMS(I,  ) - ARRAY  OF  STORED  VALUES  WHERE  I IS  THE  SUBSCRIPT 
FOR  EACH  STAGE  OR  SET  POINT. 

TMS (1,1)  - VALUES  OF  CONTROL  VARIABLES  FROM  PREVIOUS  ITERATION. 

TMS (I, 2)  - VALUES  OF  DEVIATIONS  FROM  SET  POINTS  (FUNCTIONS) 

FROM  PREVIOUS  ITERATION. 

TMS(I,3)  - VALUES  OF  CONTROL  VARIABLES  FROM  PREVIOUS  PREVIOUS 
ITERATION. 

TMS(I,4)  - LAST  COMPUTED  VALUES  OF  CHANGE  DEVIATION  FROM  SET 
POINTS  WITH  CHANGE  IN  CONTROL  VARIABLES  (GRADIENTS). 

TMS (I, 5)  - ACCUMULATED  VALUES  OF  CONTROL  VARIABLES. 

PROGRAMMED  BY  B.A.  KIMBALL,  U.S.  WATER  CONSERVATION 
LABORATORY,  PHOENIX,  ARIZONA.  MAY,  1980. 

COMMON  TIME,XIN(40) ,OUTI(80) ,TI( 10) ,DTDTI(10) ,PARI(99) 

COMMON  ETOL , ITMAX , NTIMES , FTRACE , STRACE , DELT , HDELT 
COMMON/FILES/INDATA, KLMIT , KOUT , LUTERM 
COMMON/MSTOR/TMS (10,5) , TIMMST , MITER 
DIMENSION  TSET(10),F(10),GAM(10) 

NSETS=PARI(1)  - 1.99 
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1382  C 

1383  C 

1384 

1385 

1386 

1387 

1388 

1389  C 

1390  C 

1391 

1392 

1393 

1394  C 

1395  C 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405  C 

1406  C 

1407 

1408 

1409 

1410 

1411  C 

1412  C 

1413 

1414 

1415 

1416 

1417 

1418  C 

1419  C 

1420 

1421  C 

1422  C 

1423  C 

1424 

1425 

1426 

1427 

1428 

1429 

1430  C 

1431 


CHECK  IF  THIS  IS  THE  FIRST  CALL  TO  THIS  SR  FOR  THIS  TIME-STEP 
IF  SO,  RESTET  TIME,  ITERATION  COUNTER,  ACCUMULATORS 
IF(ABS(TIME-TIMMST).LT.  0.01)  GOTO  2 
TIMMST  = TIME 
MITER  = 0 
DO  1 I=1,NSETS 

1 TMS(I,5)=0. 

INCREMENT  ITERATION  COUNTER,  CHECK  NUMBER 

2 MITER=MITER  + 1 

IT22=ITMAX*3 

IF(MITER.LT.IT22)  GOTO  7 

HAVE  EXCESSIVE  ITERATIONS,  FIX  OUTPUTS 
IF(MITER.GT.IT22)  GOTO  5 
DO  3 I=1,NSETS 

3 GAM(I)=TMS(I,5)/FLOAT(IT22) 

WRITE(KOUT,4) 

4 FORMAT("  WARNING:  OUTPUTS  FIXED  BY  MSTAT  - EXCESSIVE  ITERATIONS") 

GOTO  22 

5 DO  6 I=1,NSETS 

6 GAM(I)=TMS(I,1) 

GOTO  22 

CALCULATE  ALTERNATE  FULL  OR  0.1  STEP  SIZE  FOR  PROPORTIONAL  CONTROL 

7 Cl=MITER/2 

C2=FLOAT(MITER)/2. 

CSTEP=1.0 

IF(ABS(C1-C2).LT.  0.01)  CSTEP=0.1 

GET  THE  INPUT  TEMPERATURE,  SET  POINTS,  NEW  FUNCTION  VALUES 
T=XIN(1) 

DO  8 I=1,NSETS 
TSET(I)=PARI(I+2) 

8 F(I)=T-TSET(I) 

TMAS=PARI(2) 

START  LOOP  FOR  CALCULATING  NEW  CONTROL  VARIABLES  FOR  EACH  STAGE. 

DO  99  ISET=1,NSETS 

IF  THIS  IS  FIRST  SIMULATION  TIME,  CHANGE  CONTROL  VARIABLES  BY 
10%  IN  DIRECTION  TO  MOVE  F TOWARD  0. 

IF(TIME.GT.  0.)  GOTO  9 
IF(MITER.GT.l)  GOTO  9 

GAM(ISET)=TMS(ISET,1)  - 0. 1*SIGN( 1 . ,F( ISET) )*TMS( ISET, 1) 
IF(GAM(ISET).GT.  1.)  GAM(ISET)=1. 

IF(GAM(ISET).LT.  0.)  GAM(ISET)=0. 

GOTO  99 

9 SIZE=CSTEP 
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1432  C 

1433  C 

1434 

1435 

1436  C 

1437  C 

1438 

1439  C 

1440  C 

1441 

1442 

1443  C 

1444  C 

1445  C 

1446  10 

1447 

1448  C 

1449 

1450 

1451 

1452  C 

1453  C 

1454  11 

1455 

1456  C 

1457  C 

1458 
i 1459 

1460  C 

1461  C 

1462  C 
; 1463 

I 1464 

1465  C 

1466  C 

1467  12 

1468 

1469  C 

1470  C 

1471  C 

! 1472  32 

1473 
; 1474  C 
1475 
I 1476 
; 1477 
! 1478 
1479 
i 1480 
; 1481  C 

I 

I 


I 

I 


CHECK  FOR  ZERO  FUNCTION  CHANGE 
DELF=F(ISET)-TMS(ISET,2) 

IF(ABS(DELF).GT.  l.E-10)  GOTO  11 

CHECK  ABSOLUTE  FUNCTION  VALUE 
IF(ABS(F(ISET))  .GT.  l.E-4)  GOTO  10 

FUNCTION  ITSELF  ZERO,  GO  KEEP  SAME  CONTROL  VARIABLE  VALUE 
GAM(ISET)=TMS(ISET,1) 

GOTO  99 

HAVE  DELF  ZERO,  BUT  FUNCTION  NOT  ZERO 
USE  OLD  VALUE  OF  GRADIENT,  TAKE  SMALL  STEP 
GRAD=TMS(ISET,4) 

SIZE=0.1 

IF  GRADIENT  ALSO  IS  ZERO,  KEEP  OLD  VALUE  OF  CONTROL  VARIABLE 
GAM(ISET)=TMS(ISET,1) 

IF(ABS(GRAD).LT.  l.E-10)  GOTO  99 
GOTO  32 

CHECK  FOR  ZERO  VARIABLE  CHANGE 
DELX=TMS( ISET , 1 )-TMS ( ISET , 3 ) 

IF(ABS(DELX).GT.  l.E-10)  GOTO  12 

CHECK  IF  MAX  ON  OR  OFF 
IF(TMS(ISET,1).EQ.  0.)  GOTO  14 
IF(TMS(ISET,1)  .EQ.  1.)  GOTO  15 

HAVE  PROPORTIONAL  CONTROL,  BUT  VARIABLE  NOT  CHANGING  SO  NUDGE 

IT  A LITTLE  BIT 
GAM(ISET)=0.99*TMS(ISET,1) 

GOTO  99 

COMPUTE  GRADIENT 
GRAD=DELF/DELX 
TMS(ISET,4)=GRAD 

IF  HAVE  NEGATIVE  GRADIENT  NEED  TO  TURN  MORE  OFF  IF  F IS  + 

OR  MORE  ON  IF  F IS  - 
IF(GRAD.GE.  0.)  GOTO  13 
CHANGE=F( ISET) /GRAD 
REDUCE  WILD  CHANGES 
IF (CHANGE  .GT.  0.2)  CHANGE=0.2 
IF (CHANGE  .LT.  -.2)  CHANGE=-.2 
GAM(ISET)=TMS(ISET,1)  + CHANGE 
IF(GAM(ISET)  .GT.  1.)  GAM(ISET)=1. 

IF(GAM(ISET)  .LT.  0.)  GAM(ISET)=0. 

GOTO  99 
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COMPUTE  NEW  VALUE  OF  CONTROL  VARIABLE  FOR  PROPORTIONAL  CHANGE 
13  CHANGE=  SIZE*F(ISET)/GRAD 
C STOP  WILD  CHANGES 

IF(CHANGE  .GT.  0.2)  CHANGE  =.2 
IF(CHANGE  .LT.  -.2)  CHANGE  =-.2 
GAM(ISET)=TMS(ISET,1)  - CHANGE 
IF(GAM(ISET)  .GT.  1.)  GAM(ISET)=1. 

IF(GAM(ISET)  .LT.  0.)  GAM(ISET)=0. 

GOTO  99 


16 


C 

C 

17 


18 

19 


20 

C 

C 

21 


C 

C 

C 


NO  CHANGE  IN  X AND  CONTROL  OFF.  IF  F HAS  BECOME  NEGATIVE,  TURN 
ON  GENTLY. 

IF(F(ISET).GE.  0.)  GAM(ISET)=0. 

IF(F(ISET).LT.  0.)  GAM(ISET)=0. 1 
GOTO  99 

NO  CHANGE  IN  X AND  CONTROL  ON.  IF  F HAS  BECOME  POSITIVE,  TURN 
OFF  GENTLY. 

IF(F(ISET).LE.  0.)  GAM(ISET)=1. 

IF(F(ISET).GT.  0.)  GAM(ISET)=0.9 

CONTINUE 

MAKE  SURE  ONLY  ONE  STAGE  IS  CONTROLLING  PROPORTIONALLY. 

FIRST  FIND  WHICH  SET  POINT  IS  NEXT  HIGHER  THAN  T 
IF(NSETS.EQ.l)  GOTO  22 
NH=0 
NH=NH+1 

IF(NH.GT.NSETS)  GOTO  17 
IF(T.LT.TSET(NH))  GOTO  17 
GOTO  16 

SET  ALL  CONTROL  VARIABLES  MORE  THAN  1 STAGE  AWAY  FROM  T TO  0.  OR  1 
NL=NH-1 
NLM1=NL-1 

IF(NLMl.LT.l)  GOTO  19 
DO  18  I=1,NLM1 
GAM(I)=0. 

NHP1=NH+1 

IF(NHP1.GT.  NSETS)  GOTO  21 
DO  20  I=NHP1, NSETS 
GAM(I)=1. 

T IS  BETWEEN  TWO  SET  POINTS.  CHOOSE  WHICH  WILL  HAVE  CONTROL. 
IF(NL.LT.l  .OR.  NH.GT. NSETS)  GOTO  22 
IF(TSET(NL).LT.TMAS  .AND.  TSET(NH) .LE.TMAS)  GOTO  30 
IF(TSET(NL).GE.TMAS  .AND.  TSET(NH) .GT.TMAS)  GOTO  31 

HAVE  CASE  WHERE  BOTH  HEATING  AND  COOLING  ARE  ADJACENT. 

IF  ONLY  ONE  OF  STAGES  IS  CONTROLLING  LET  IT  CONTINUE 
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1532  C 

1533 

1534  C 

1535  C 

1536 

1537 

1538 

1539 

1540  C 

1541  C 

1542  C 

1543 

1544 

1545  C 

1546  C 

1547  C 

1548 

1549  C 

1550  C 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560  C 

1561 

1562 

1563 

1564 

1565 

1566 

1567  C 

1568 

1569 


TO  CONTROL. 

IF(GAM(NL).EQ.  0.  .OR.  GAM(NH).EQ.  1.)  GOTO  22 
BOTH  STAGES  TRYING  TO  CONTROL.  GIVE  CONTROL  TO  THE 
LARGER,  REMEMBERING  THAT  1-GAM  IS  CONTROL  VARIABLE  FOR  COOLING. 
0MG=1.  - GAM(NH) 

IF(GAM(NL).GE.OMG)  GAM(NH)=1 . 

IF(GAM(NL).LT.OMG)  GAM(NL)=0. 

GOTO  22 

HAVE  BOTH  STAGES  COOLER  THAN  TMAS.  TURN  OFF  COLDER  STAGE 
IF  WARMER  IS  NOT  ON  COMPLETELY. 

30  IF(GAM(NH).LT.  l.)GAM(NL)=0. 

GOTO  22 

HAVE  BOTH  STAGES  WARMER  THAN  TMAS.  TURN  OFF  WARMER  STAGE  IF 
COLDER  STAGE  NOT  ON  COMPLETELY 

31  IF(GAM(NL).GT.  0.)  GAM(NH)=1. 

SHIFT  DATA,  GET  OUTPUTS  AND  RETURN 

22  DO  23  I=1,NSETS 

TMS(I,5)=TMS(I,5)  + GAM(I) 

TMS(I,3)=TMS(I,1) 

TMS(I,2)=F(I) 

TMS(I,1)=GAM(I) 

11=2*1  - 1 
OUTI(II)=GAM(I) 

0UTI(IH-1)=1.  - GAM(I) 

23  CONTINUE 

IF(TIME.LT.FTRACE  .OR.  TIME .GT . STRACE)  GOTO  26 
WRITE (KOUT, 24) 

24  FORMATf’  ISET”,6X,”GAMA",10X,"F’’,9X,"GAMOLD", 

1 8X,"GRAD",8X,”SUMGAM*') 

WRITE(KOUT,25)  (I, (TMS(I , J) , J=1 , 5) , 1=1 ,NSETS) 

25  F0RMAT(1H  ,I3,5E13.5) 

26  RETURN 

END 
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1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 
1601 
1602 
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1613 
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1616 

1617 

1618 
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SUBROUTINE  CXR 

TYPE  23  CURTAIN  HEAT  EXCHANGER 

THIS  SUBROUTINE  SIMULATES  THE  PERFORMANCE  OF  A CURTAIN 
HEAT  EXCHANGER,  WHICH  CONSISTS  OF  A FILM  OF  PLASTIC  DRAPED  OVER  A 
WATER  DISTRIBUTION  PIPE.  HOT  OR  COLD  WATER  RUNS  DOWN  THE  INSIDE 
OF  THE  CURTAIN  AND  GAINS  OR  LOSES  ENERGY  TO  THE  AIR  IN  WHICH  THE 
CURTAIN  IS  LOCATED.  THE  CURTAIN  PHYSICALLY  CAN  EXCHANGE  ENERGY 
WITH  THE  AIR  BY  CONVECTION  OF  SENSIBLE  AND  LATENT  HEAT  AND  WITH 
OTHER  SURFACES  BY  THERMAL  RADIATION.  SOLAR  RADIATION  ABSORPTION  I 
ASSUMED  NEGLIGIBLE.  THE  ENERGY  EXCHANGE  BY  THE  SEVERAL 
MECHANISMS  IS  ASSUMED  TO  GOVERENED  BY  A CONSTANT  OVERALL  HEAT  TRAN 
COEFFICIENT  (PARAMETER  2). 

THE  SUBROUTINE  COMPUTES  THE  OUTLET  TEMPERATURE  OF  THE  WATER 
IT  ALSO  COMPUTES  THE  OUTLET  TEMPERATURE  AND  FLOW  RATE  OF  AN  IMAGIN 
STREAM  OF  AIR  CARRYING  THE  ENERGY  ADDED  OR  REMOVED  BY  THE 
CURTAIN. 

PROGRAMMED  BY  B.  A.  KIMBALL,  U.  S.  WATER  CONSERVATION 
LABORATORY,  PHOENIX,  ARIZONA.  1980. 

COMMON  TIME,XIN(40) ,OUTI(80) ,TI(10) ,DTDTI(10) ,PARI(99) 

PARAMETERS  - AREA(M2),  OVERALL  HEAT  TRANSFER  COEF(W/(M2*C) ) 
A=PARI(1) 

U=PARI(2) 

INPUTS  - AIR  TEMP(C),  WATER  TEMP(C)  AND  FLOW  RATE(KG/S) 

TAI=XIN(1) 

TWI=XIN(4) 

FWI=XIN(5) 

R=(FWI*4190.)/(U*A) 

OUTLET  WATER  TEMP 
TWO=(TWI*(R  - .5)  + TAI)/(R  + .5) 

RATE  OF  ENERGY  TRANSFER  (W) 

Q=FWI*4 1 90* ( TWO-TWI ) 

AIR  TEMP  OF  IMAGINARY  OUTLET  WITH  FLOW  RATE  OF  1 KG/S 
TAO=TAI  - Q/1020. 

OUTPUTS 

OUTI(l)=TAO 

OUTI(2)=l. 

OUTI(3)=XIN(3) 
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1620 

0UTI(4)»TW0 

1621 

0UTI(5)=FWI 

1622 

OUTI(6)»Q 

1623  C 

1624 

RETURN 

1625 

END 

10:51  AM  TUE., 


30  NOV.,  1982 
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1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 
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1636 

1637 
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1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 
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1668 
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1670 
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SUBROUTINE  PSTOR 

TYPE  24  PASSIVE  STORAGE 

THIS  SUBROUTINE  SIMULATES  THE  PERFORMANCE  OF  A STACK  OF 
WATER-FILLED  BOTTLES  OR  OTHER  SENSIBLE  HEAT  STORAGE  MATERIAL 
SUCH  AS  ROCKS  IN  THE  SPACE  WHOSE  TEMPERATURE  IS  BEING  MODIFIED. 
INTERNAL  TEMPERATURE  GRADIENTS  MUST  BE  INSIGNIFICANT,  AND  SOLAR 
RADIATION  ABSORPTION  IS  NOT  CONSIDERED.  ENERGY  EXCHANGE  WITH  AIR 
IS  PRESUMED  TO  OCCUR  BY  CONVECTION  OF  SENSIBLE  AND  LATENT  HEAT 
AND  WITH  OTHER  SURFACES  BY  THERMAL  RADIATION.  THE  ENERGY  EXCHANGE 
BY  THE  SEVERAL  MECHANISMS  IS  ASSUMED  TO  BE  GOVERENED  BY  A CONSTANT 
OVERALL  HEAT  TRANSFER  COEFFICIENT  (PARAMETER  2). 

THE  SUBROUTINE  COMPUTES  THE  RATE  OF  TEMPERATURE  CHANGE  OF 
THE  STORAGE  MATERIAL,  AND  RETURNS  THIS  TO  THE  MAIN  PROGRAM  FOR 
INTEGRATION.  IT  ALSO  COMPUTES  THE  OUTLET  TEMPERATURE  AND  FLOW 
RATE  OF  AN  IMAGINARY  STREAM  OF  AIR  CARRYING  THE  ENERGY  ADDED  OR 
REMOVED  FROM  STORAGE. 

PROGRAMMED  BY  B.  A.  KIMBALL,  U.  S.  WATER  CONSERVATION 
LABORATORY,  PHOENIX,  ARIZONA.  1980. 

COMMON  TIME,XIN(40) ,OUTI(80) ,TI(10) ,DTDTI(10) ,PARI(99) 

PARAMETERS  - AREA(M2),  OVERALL  HEAT  TRANSFER  C0EF(W/(M2*C) ) , 

MASS  OF  STORAGE(KG),  AND  SPECIFIC  HEAT  OF  STORAGE( J/( (KG 
UA=PARI(1)*PARI(2) 

CM=PARI(3)*PARI(4) 

INPUT  AIR  TEMP(C) 

TAI=XIN(1) 

COMPUTE  RATE  OF  ENERGY  TRANSFER  TO  STORAGE  (W) 

Q=UA*(TAI-TI(1)) 

RATE  OF  TEMP  CHANGE  OF  STORAGE  (C/S) 

DTDTI(1)=Q/CM 

AIR  TEMP  OF  IMAGINARY  OUTLET  WITH  AIR  FLOW  RATE  OF  1 KG/S 
TAO=TAI  - Q/1020. 

OUTPUTS 

0UTI(1)=TA0 

0UTI(2)=1. 

OUTI(3)=XIN(3) 

0UTI(4)=TI(1) 

0UTI(5)=Q 
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RETURN 

END 
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covovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovovov 

PROGRAM  MEBV2(5) 

DIMENSION  IPAR(5) 

CALL  RMPAR(IPAR) 

INSTN-IPAR(l) 

GOTO  INSTN 
END 
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9  COVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOV 

10  c 

11  SUBROUTINE  GH 

12  C 

13  C TYPE  5 GREENHOUSE 

14  C 

15  C THIS  SUBROUTINE  PERFORMS  A COMPLETE  ENERGY  BALANCE 

16  C ON  A GREENHOUSE  AND  COUPLES  IT  WITH  A MOISTURE  BALANCE  OF  THE 

17  C GREENHOUSE  AIR.  AS  A RESULT,  THE  GREENHOUSE  AIR  TEMPERATURE,  COVE 

18  C TEMPERATURE  AND  HUMIDITY  RATIO  ARE  SOLVED  DIRECTLY,  AND  THE  MOST 

19  C IMPORTANT  SENSIBLE  AND  LATENT  HEAT  FLUXES  ARE  OBTAINED.  EXTERNAL 

20  C DEVICES  CAN  ADD  (OR  REMOVE)  ENERGY  FROM  THE  GREENHOUSE  AIR,  COVER 

21  C AND  ONE  SOIL  LAYER. 

22  C 

23  C PROGRAMMED  BY  B.  A.  KIMBALL,  U.  S.  WATER  CONSERVATION 

24  C LABORATORY,  PHOENIX,  ARIZONA.  1980. 

25  C 

26  COMMON  TIME,XIN(40),OUTI(80),TI(10),DTDTI(10),PARI(99) 

27  COMMON/FILES/ INDATA, KLMIT , KOUT , LUTERM 

28  COMMON/GHMN/TAIOLD,TCOLD,WAIOLD 

29  DIMENSION  C(5) ,B(13) ,TX(4) ,WX(4) ,A(3,3) ,Y(3) 

30  REAL  KV,  LAI,K(5) ,KCF,KN,MX(4) ,MXC,MXG,KWF 

31  C 

32  C ***  FUNCTIONS  *** 

33  C 

34  C SATURATION  VAPOR  PRESSURE  (TETENS)  (KPA  FROM  T IN  C) 

35  SVP(T)»0.61078*EXP(17.2694*T/(T+237.3)) 

36  C 

37  C SATURATION  HUMIDITY  RATIO  (KG/KG  FROM  P IN  KPA  AND  T IN  C) 

38  SHRO(P,T)=.62198/((P/SVP(T))-l.) 

39  C 

40  C 

41  C SLOPE  OF  HUMIDITY  RATIO  VS  TEMPERATURE  CURVE 

42  SW(W,T)=W*(1.  + W/0.62198)*4098.03/(T+237.3)**2 

43  C 

44  C CONTROL  VARIABLES  FOR  FLUID  FLOW,  COVER  PROPERTIES, 

45  C POWERED  CIRCULATION  AND  NATUTRAL  VENTILATION 

46  GAMC=XIN(8) 

47  GAMP=XIN(9) 

48  GAMN=XINh0) 

49  G1MF=1.-GAMF 

50  G1MC=1.-GAMC 

51  G1MP=1.-GAMP 

52  C ***  PARAMETERS  *** 

53  C 

54  C TOTAL  NUMBER  OF  PARAMETERS  (50  + 2*N0.  OF  SOIL  LAYERS) 

55  NP=PARI(1)  + .1 

56  C 

57  C TOTAL  NUMBER  OF  EXTERNAL  DEVICES  WITH 

58  C SENSIBLE  AND  LATENT  HEAT  FLUXES) 
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59  JMAX=PARI(2)  + .1 

60  C 

61  C TOTAL  NUMBER  OF  DERIVATIVES  = NO.  OF  SOIL  LAYERS 

62  MMAX=PARI(3)  + .1 

63  C 

64  C NO.  OF  SOIL  LAYER  THAT  RECEIVES  ENERGY  FROM  EXTERNAL  DEVICE 

65  N=PARI(4)+.l 

66  C 

67  C AREA  OF  COVER  (M2) 

68  AC=PARI(5) 

69  C 

70  C AREA  OF  SOIL  (M2) 

71  AG=PARI(6) 

72  C 

73  C AREA  OF  WALL  WITH  CONSTANT  PROPERTIES (M2) 

74  AW=PARI(7) 

75  C 

76  C VOLUME  OF  AIR  IN  GREENHOUSE  (M3) 

77  VAI=PARI(8) 

78  C 

79  C 

80  C SPECIFIC  HEAT  OF  FLUIDS  THAT  CARRY  ENERGY  TO  COVER  AN  NTH  SOIL 

81  C LAYER(J/KGC) 

82  CXC=PARI(9) 

83  CXG=PARlho) 

84  C 

85  C REFLECTANCE  OF  VEGETATION  AND/OR  SOIL  FOR  SOLAR  RADIATION 

86  RH0V=PARI(11) 

87  C 

88  C COEFFICIENTS  FOR  OUTSIDE  HEAT  TRANSFER  COEFFICIENT 

89  B(1)=PARI(12) 

90  B(2)=PARI(13) 

91  C 

92  C OVERALL  HEAT  TRANSFER  COEFFICIENT  FOR  UNCHANGING  WALL(W/M2  C) 

93  UW=PARI(14)*AW 

94  C 

95  C TRANSMITTANCE  AND  ABSORBTANCE  OF  COVER  FOR  SOLAR  RADIATION 

96  TAUS=G1MF*G1MC*PARI( 1 5 )+G IMF* GAMC* PARI ( 16 ) 

97  1 +GAMF*G1MC*PARI(17)+GAMF*GAMC*PARI(18) 

98  ALPH=G1MF*G1MC*PARI  ( 19  )-l-GlMF*GAMC*PARI  ( 20) 

99  1 +GAMF*G1MC*PARI(21)+GAMF*GAMC*PARI(22) 

100  C 

101  C INSIDE  AIR  HEAT  TRANSFER  C0EFFICIENT(W/M2  C) . REDUCE 

102  HAI=G1MP*PARI(23)+GAMP*PARI(24) 

103  C FLUID,  INNER  COVER,  OUTER  COVER  THERMAL  CONDUCTANCES (W/M2  C) 

104  HF=G1MF*PARI(25)+GAMF*PARI(26) 

105  HC0=G1MC*PARI ( 27 )+GAMC*PARI ( 28 ) 

1 06  HCI=G  1MC*PARI  ( 2 9 )-l-GAMC*P  ARI  ( 40  ) 

107  C 

108  C INFILTRATION  AIR  VELOCITY  COEFFICIENTS 
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109 

110 
111 
112 

113 

114 

115 

116  C 

117  C 

118 

119 

120  C 

121  C 

122 

123  C 

124  C 

125 

126 

127 

128  C 

129  C 

130 

131 

132 

133 

134 

135  C 

136  C 

137  C 

138  C 

139  C 

140 

141  C 

142  C 

143 

144  C 

145  C 

146 

147  C 

148  C 

149 

150  C 

151  C 

152 

153  C 

154  C 

155 

156  C 

157  C 

158  C 


B( 3 )=G1MC*PARI ( 31 )+GAMC*PARI ( 32 ) 

B( 4 )=G1MC*PARI ( 33 )+GAMC*PARI ( 34 ) 

B( 5 )=G1MC*G1MP*PARI ( 3 5 )+GlMC*GAMP*PARI ( 36 ) 

1 -k;amc*gimp*pari  ( 3 7 )-I-GAMC*GAMP*PARI  ( 38  ) 

B(6)=PARI(39) 

B(7)=PARI(80) 

B ( 8 ) =G1MP*PARI  ( 4 1 )-l-GAMP*PARI  (42) 

NATURAL  VENTILATION,  STOMATAL  RESISTANCE  COEFFICIENTS 
DO  10  1=9,13 
10  B(I)=PARI(I+34) 

SOIL  RESISTANCE(M2*2/KG) 

RG=PARI(48) 

BOTTOM  SOIL  TEMP(C)  AND  CONDUCTANCE  (W/M2  C) 

T I ( MMAX+1 ) =P ARI ( 4 9 ) 

K( MMAX+1 ) = ( PARI ( 50 ) ) *AG 
IF(MMAX.EQ.O)  GOTO  2 

CONDUCTANCE  (W/M2  C)  AND  HEAT  CAPACITY  (MJ/M2  C)  OF  SOIL  LAvwoc 
DO  1 M=1,MMAX 
K(M)=PARI(51  + (M-1)*2)*AG 
C(M)=PARI(52  + (M-1)*2)*1.E6*AG 

1 CONTINUE 

2 CONTINUE 


***  INPUTS  *** 


TOTAL  DOWNCOMING  SOLAR  RADIATION  OUTSIDE  (W/M2) 
S0=XIN(1) 

OUTSIDE  WIND  SPEED  (M/S) 

UA0=XIN(2) 

OUTSIDE  BAROMETRIC  PRESSURE(KPA) 

PA0=XIN(3) 

OUTSIDE  AIR  TEMP  (C) 

TA0=XIN(4) 

OUTSIDE  HUMIDITY  RATIO  (KG/KG) 

WA0=XIN(5) 

LEAF  AREA  INDEX 
LAI=XIN(6) 


TEMPS,  FLOW  RATES  FOR  DEVICES  THAT  ADDS 
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159  C ENERGY  TO  GREENHOUSE  COVER  AND  SOIL  LAYER 

160  TXC=XIN(11) 

161  MXC=XIN(12)*CXC*2. 

162  TXG=XIN(13) 

163  MXG=XIN(14)*CXG*2. 

164  C 

165  C GET  TEMP,  FLOW  RATE,  AND  HUMIDITY  FROM  EXTERNAL  DEVICES 

166  C THAT  EXCHANGE  ENERGY  WITH  GREENHOUSE  AIR 

167  SUMMX  =0. 

168  SUMHX=0. 

169  SUMEX=0. 

170  IF(JMAX.EQ.O.)  GOTO  4 

171  DO  3 J=1,JMAX 

172  JJ»15  + (J-l)*3 

173  TX(J)=XIN(JJ) 

174  MX(J)=XIN(JJ+1) 

175  WX(J)=XIN(JJ+2) 

176  SUMMX=SUMMX  + MX(J) 

177  SUMHX=SUMHX  + TX(J)*MX(J) 

178  SUMEX=SUMEX  + WX(J)*MX(J) 

179  3 CONTINUE 

180  4 CONTINUE 

181  C 

182  C 

183  C HEAT  CAPACITY  OF  AIR  (J/(KG*C)) 

184  CA=1005.  + 1859.*WAIOLD 

185  C 

186  C LATENT  HEAT  OF  VAPORIZATION  (J/KG) 

187  HVAP=2.501E6  - 2381.*TAIOLD 

188  C COMPUTE  AIR  DENSITY 

189  DA=PAO/(.287*(TAO+273.16)) 

190  C 

191  C 

192  C SOLAR  RADIATION  ABSORBED  IN  GREENHOUSE,  COVER 

193  SI=AG*S0*TAUS*C1.-RH0V) 

194  SC=AG*SO*ALPH 

195  C 

196  C OVERALL  HEAT  TRANSFER  COEFFICIENTS  THROUGH  COVER 

197  HAO=B(l)+B(2)*UAO 

198  UO=l . / ( ( 1 . /HAO)+( 1 . /HCO)+( 1 . /HF) ) 

199  UO=UO*AC 

200  UI=1 . / ( ( 1 . /HAI)+( 1 . /HCI )+( 1 . /HF) ) 

201  UI=UI*AC 

202  C 

203  C INFILTRATION  COEFFICIENTS  THROUGH  COVER  AND  WALL 

204  DT=SQRT(ABS(TAIOLD-TAO)) 

205  VCF=B(3)*UA0+B(4)*DT+B(5) 

206  HCF=VCF*CA*DA/1000. 

207  HCF=HCF*AC 

208  KCF=HCF*HVAP/CA 


238 


PAGE 


OPTS ; LYI 


10:55  AM  TUE.,  30  NOV.,  1982 


GH 


209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 


VWF=B ( 6 ) *UAO+B ( 7 ) *DT+B ( 8 ) 

HWF=*VWF*CA*DA/1000 . 

HWF=HWF*AW 

KWF»HWF*HVAP/CA 

NATURAL  VENTILATION  COEFFICIENTS 
VN=(B(9)*UAO  + B(10)*DT)*GAMN 
HN»(VN/3600. )*VAI*DA*CA 
KN»HN*HVAP/CA 

TRANSFER  COEFFICIENT  FOR  EVAPOTRANSPIRATON  (KG/(M2*S)) 

RA=CA/HAI 

LEAF  STOMATAL  RESISTANCE  (M2  S/KG) 

SV=»SO*TAUS 

RV=B(11)  + B(12)/(B(13)  + SV) 

USE  LEAF  AREA  INDEX  TO  CONVERT  TO  CROP  RESISTANCE 
KV=LAI/(RA+RV)  + l./(RA+RG) 

KV-KV*AG*HVAP 

GET  COEFFICIENTS  FOR  LINEAR  APPROXIMATION  TO  SATURATION  HUMIDITY 
RATIO  VS  TEMPERATURE  CURVE 
WVOLD=SHRO(PAO,TAIOLD) 

SLP=*SW(  WVOLD , TAIOLD) 

TCEP=WVOLD  “ SLP*TAIOLD 

COMPUTE  THE  COEFFICIENTS  IN  THE  ENERGY  AND  MOISTURE  BALANCE 
EQUATIONS 

SUMUH=HCF+HN+UW+HWF 

SUMK=KCF+KN+KWF 

A(1,1)=CA*SUMMX  + UI+SUMUH  +K(1) 

A(l,2)=  HVAP*SUMMX  +SUMK 
A(1,3)=-UI 

Y(1)=SI  + CA*SUMHX  + HVAP*SUMEX  + K(1)*T1(1) 

1 + TAO*SUMUH  + WAO*SUMK 

A(2,1)=»-KV*SLP 

A(2,2)»  KV+  HVAP*SUMMX  +SUMK 

Y(2)=  KV*TCEP  + HVAP*SUMEX  + WAO*SUMK 

A(3,1)=-UI 
A(3,3)=MXC  +UI  +U0 
Y(3)«SC  + MXC*TXC  + UO*TAO 

SOLVE  USING  CRAMERS  RULE 
DET=A(1,1)*A(2,2)*A(3,3)-A(1.3)*A(2.2)*A(3,1) 

1 -A(1.2)*A(2,1)*A(3,3) 

IF(ABS(DET).GT.l.E-20)  GO  TO  105 
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260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 


C WRITE  ERROR  MESSAGE 

WRITE (KOUT, 101) 

101  FORMATC"  ***ZERO  DETERMINANT  IN  GRNHS"/ 

1 ■*  AUGMENTED  A MATRIX  IS  :”) 

DO  102  1=1,3 

102  WRITE(K0UT,103)  (A(I , J) , J=1 , 3) , Y(I) 

103  FORMAT(4E13.5) 

C 

C USE  OLD  VALUES  TO  COMPUTE  FLUXES 

TAI=TAIOLD 
WAI=WAIOLD 
TC=TCOLD 
GO  TO  106 
C 

C COMPUTE  NEW  VALUES  OF  TAI,  WAI,  TC 

105  D1=Y(1)*A(2,2)*A(3,3)-A(1,3)*A(2,2)*Y(3)-A(1,2)*Y(2)*A(3,3) 

TAI=D1/DET 
C 

D2=A(1,1)*Y(2)*A(3,3)+A(1,3)*A(2,1)*Y(3) 

1 -A(1,3)*Y(2)*A(3,1)-Y(1)*A(2,1)*A(3,3) 

WAI=D2/DET 

C 

D3=A(1,1)*A(2,2)*Y(3)  + A(1,2)*Y(2)  * A(3,l) 

1 - Y(1)*A(2,2)*A(3,1)  - A(1,2)*A(2,1)*Y(3) 

TC=D3/DET 
106  CONTINUE 
C 

c ***  dTDT  for  soil  TEMPERATURES  *** 

XG=0. 

IF(MMAX.EQ.O)  GOTO  16 

DTDTI(1)=(K(1)/C(1))*(TAI-TI(1))-(K(2)/C(1))*(TI(1)-TI(2)) 
IF(MMAX.EQ.l)  GOTO  17 
DO  15  M=2,MMAX 

DTDTI(M)=(K(M)/C(M))*(TI(M-1)-TI(M))-(K(M+1)/C(M))* 

1 (TI(M)-TI(M+1)) 

15  CONTINUE 

C ADD  EXTERNAL  ENERGY  TO  NTH  LAYER 

17  IF(N.LT.l  .OR.  N.GT.MMAX)  GO  TO  16 
XG=MXG*(TXG  - TI(N)) 

DTDTI(N)=DTDTI(N)  + XG/C(N) 

16  CONTINUE 
C 

C 

C ***  OUTPUTS  *** 

C 

C INSIDE  AIR  TEMP(C),  HUMIDITY  RATIO(KG/KG)  AND  COVER  TEMP(C) 

OUTI(l)  =TAI 
OUTI(2)=WAI 
OUTI(3)=TC 
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8 CH 


309  C SOLAR  RADIATION  ABSORBED  BY  GREENHOUSE  AND  COVER(W) 

310  0UTI(4)=SI 

311  0UTI(5)=SC 

312  C 

313  C CONVECTION,  THERMAL  RADIATION  FROM  COVER  TO  OUTSIDE,  INSIDE 

314  C TO  COVER(W) 

315  0UTI(6)=U0*(TC  - TAO) 

316  0UTI(7)=UI*(TAI  - TC) 

317  C 

318  C INFILTRATION  OF  SENSIBLE  AND  LATENT  HEAT  THROUGH  COVER(W) 

319  0UTI(8)=HCF*(TAI  - TAO) 

320  0UTI(9)=KCF*(WAI  - WAO) 

321  C 

322  C NATURAL  VENTILATION  OF  SENSIBLE  AND  LATENT  HEAT(W) 

323  0UTI(10)=HN*(TAI  - TAO) 

324  0UTI(11)=KN*(WAI  - WAO) 

325  C 

326  C CONDUCTION  AND  INFILTRATION  THROUGH  UNCHANGING  WALL(W) 

327  0UTI(12)=UW*(TAI  - TAO) 

328  0UTI(13)=HWF*(TAI  - TAO) 

329  0UTI(14)=KWF*(WAI  - WAO) 

330  C 

331  C SURFACE  SOIL  HEAT  FLUX  (W) 

332  0UTI(15)=K(1)*(TAI-TI(1)) 

333  C 

334  C EVAPOTRANSPIRATION  (KG/S) 

335  WV=TCEP  + SLP*TAI 

336  0UTI(16)=KV*(WV-WAI)/HVAP 

337  C 

338  C SENSIBLE  HEAT  TO  COVER  (W) , COVER  FLUID  EXIT  TEMP(C), 

339  C AND  FLOW  RATES  (KG/S) 

340  0UTI(17)=MXC  * (TXC  - TC) 

341  0UTI(18)=TC  - (TXC  - TC) 

342  OUTI(19)=XIN(12) 

343  C 

344  C SENSIBLE  HEAT  ADDED  TO  NTH  SOIL  LAYER  (W),SOIL  FLUID  EXIT 

345  C TEMP  (C),  AND  FLOW  RATE  (KG/S) 

346  OUTI(20)=  XG 

347  0UTI(21)  = 0. 

348  IF(N.GE.l  .AND.  N.LE.MMAX)  0UTI(21)=TI(N)  - (TXG-TI(N)) 

349  OUTI(22)=  XIN(14) 

350  C 

351  C SURFACE  SOIL  HEAT  FLUX(W) 

352  C 

353  C SOIL  TEMPERATURES  (C) 

354  IF(MMAX.EQ.O)  GO  TO  20 

355  DO  19  M=1,MMAX 

356  19  OUTI(22+M)=TI(M) 

357  C 

358  C SENSIBLE  AND  LATENT  HEAT  ADDED  BY  EXTERNAL  DEVICES  (W) 
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359  IF(JMAX.EQ.O)  GO  TO  21 

360  20  DO  18  J=1,JMAX 

361  JO=23+MMAX  + (J-l)*3 

362  0UTI(J0+2)=MX(J)*HVAP*(WX(J)-WAI) 

363  0UTI(J0+1)=MX(J) 

364  OUTI(JO)=MX(J)*(TX(J)-TAI)*CA 

365  18  CONTINUE 

366  C 

367  C 

368  C STORE  THE  NEW  VALUES  OF  TAI  AND  WAI  FOR  THE  NEXT  CALL 

369  21  TAIOLD^TAI 

370  WAIOLD=WAI 

371  TCOLD=TC 

372  C 

373 

374 


RETURN 

END 
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401 

402 

403 
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SUBROUTINE  SXR 


TYPES 


SENSIBLE  HEAT  EXCHANGER  W/O  PHASE  CHANGE 


THIS  ROUTINE  SIMULATES  THE  PERFORMANCE  OF  A SENSIBLE  HEAT 
EXCHANGER  GIVING  OUTLET  TEMPS  OF  HOT  AND  COLD  STREAMS. 

MODE=l,2,3,4  SIGNIFY  PARALLEL,  COUNTERFLOW,  CROSS  FLOW  AND  CONSTANT 
EFFECTIVNESS  MODES. 

IF  MODE=4.  THE  HEAT  EXCHANGER  IS  MODELED  USING  A CONSTANT 
VALUE  OF  ITS  EFFECTIVENESS,  EFF,  PROVIDED  AS  PARI(2)  BASED  UPON 
THE  HOT  CAPACITANCE  RATE,  CH. 

UA-OVERALL  TRANSFER  COEFF  PER  UNIT  TEMP  DIFFERENCE,  CPH-SPECIFIC 
HEAT  OF  HOT  SIDE  FLUID,  CPC-SPECIFIC  HEAT  OF  COLD  SIDE  FLUID 
FLWH-HOT  SIDE  FLOW  RATE,  TCI-COLD  SIDE  INLET  TEMP,  FLWC-COLD  SIDE 
FLOW  RATE 

ADAPTED  FROM  KLEIN  ET  AI..,  "TRNSYS  - A TRANSIENT 
SIMULATION  PROGRAM,"  UNIVERSITY  OF  WISCONSIN  - MADISON, 
ENGINEERING  EXPERIMENT  STATION  REPORT  38,  1976. 

COMMON  TIME,  XIN(40) , OUTI(80),  TI(IO),  DTDTI(IO),  PARI(99) 

COMMON/FILES/INDATA,  KLMIT,  KOUT,LUTERM 

M0DE=PARI(1) 

UA=PARI(2) 

CPH=PARI(3) 

CPC=PARI(4) 

IF  (M0DE.EQ.4)  EFF=PARI(2) 

THI=XIN(1) 

TCI=XIN(3) 

GET  AVERAGE  FLOW  RATES  (KG/S)  AND  SCALE  UP  TO  ACTUAL  FLOW  RATES 
THROUGH  THE  EXCHANGER  FOR  THE  FRACTION  OF  TIME  IT  IS  IN  OPERATION. 
GAM=XIN(5) 

IF(GAM.LT.  l.E-6)  GOTO  98 

FLWH=XIN(2)/GAM 

FLWC=XIN(4)/GAM 

IF(FLWH.LT.  l.E-6  .OR.  FLWC.LT.  l.E-6)  GOTO  98 
CALCULATION  OF  MINIMUM  AND  MAXIMUM  CAPACITY  RATES 
CH=CPH*FLWH 
CC=CPC*FLWC 
CMAX=CC 
CMIN=CH 

IF ( CH . GT . CC) CMAX=CH 

IF(CH.GT.CC)CMIN=CC 

IF  (M0DE.EQ.4)  GO  TO  13 

RAT=CMIN/CMAX 

UC=UA/CMIN 

EFF=1.0-EXP(-UC) 

IF((CMIN/CMAX).LE.  0.01)  GOTO  14 
GO  TO  (10,11,12,13),  MODE 
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425  C 
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428  C 
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435  C 
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447 

448 
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450 

451 

452  C 

453  C 

454  C 

455  C 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 


PARALLEL  PLOW 

10  EFF=(1.0-EXP(-UC*(1.0+RAT)))/(1.0+RAT) 

GO  TO  14 

COUNTER  FLOW 

11  CONTINUE 
CHECK=ABS( 1.0-RAT) 

IF(CHECK.LT.O.Ol)  GO  TO  20 

EFF= ( 1 . 0-EXP ( -UC* ( 1 . 0-RAT )))/(!. 0-RAT*EXP ( -UC* ( 1 . 0-RAT ) ) ) 
GO  TO  14 

12  CONTINUE 

CROSSFLOW,  HOT  SIDE  UNMIXED 
XP=1 .0-EXP (-UC*RAT) 

EFF=1 .0-EXP(-XP/RAT) 

IF(CMAX.EQ.CH)  GO  TO  14 
XP=1.0-EXP(-UC) 

EFF= ( 1 . 0-EXP (-XP*RAT) ) /RAT 
GO  TO  14 

13  CONTINUE 
QMAX=CMIN* ( THI-TC I ) 

qt=eff*qmax 

THO=THI-QT/CH 
TCO=TCI+QT/CC 
GO  TO  40 

20  EFF=UC/(UC+1.0) 

14  THO=THI-EFF*(CMIN/CH)*(THI-TCI) 

TCO=EFF* ( CMIN/CC) * ( THI-TCI )+TCI 
qT=EFF*  CMIN* ( THI-TCI ) 

THO-OUTLET  TEMP  ON  HOT  SIDE,  TCO-OUTLET  TEMP  ON  COLD  SIDE, QT- 
TOTAL  INSTANTANEOUS  ENERGY  TRANSFER  ACROSS  EXCHANGER, 
EFF-EFFECTIVENESS . 

SCALE  TO  AVERAGE  FLOW  RATES 
40  0UTI(1)=THI  + GAM*(THO-THI) 

OUTI(2)=XIN(2) 

0UTI(3)=TCI  + GAM*(TCO-TCI) 

OUTI(4)=XIN(4) 

0UTI(5)=QT*GAM 

0UTI(6)=EFF 

RETURN 

98  0UTI(1)=THI 

OUTI(2)=XIN(2) 

0UTI(3)=TCI 

0UTI(4)=XIN(4) 

0UTI(5)=0.0 

OUTI(6)=0.0 

RETURN 

END 
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500  C 

501  C 

502  C 

503  C 

504  C 

505  C 

506  C 

507  C 

508  C 
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SUBROUTINE  CLECR 

TYPE 10  FLAT  PLATE  SOLAR  COLLECTOR 

THIS  COMPONENT  SUMULATES  THE  THERMAL  PERFORMANCE  OF  A 
FLAT-PLATE  SOLAR  COLLECTOR  USING  THE  MODEL  DEVELOPED  BY 
HOTTEL,  WHILLIER,  AND  BLISS. 

HR  - TOTAL  RADIATION  INCIDENT  ON  THE  TILTED  COLLECTOR  SURFACE 
(W/M2) 

QU  - THE  USEFUL  ENERGY  COLLECTION  RATE  PER  UNIT  AREA  (W/M2) 

A - COLLECTOR  AREA  (M2) 

FP  - (F-PRIME)  COLLECTOR  GEOMETRY  EFFICIENCY  FACTOR 

UL  - OVERALL  ENERGY  LOSS  COEFFICIENT  (W/M2  C) 

TA  - AMBIENT  TEMPERATURE  (C) 

TIN  - INLET  FLUID  TEMPERATURE  (C) 

TOUT  - OUTLET  FLUID  TEMPERATURE  (C) 

TM  - MEAN  FLUID  TEMPERATURE  (C) 

FLWRT  - COLLECTOR  FLUID  FLOWRATE  (KG/S) 

CPF  - THERMAL  CAPACITANCE  OF  THE  COLLECTOR  FLUID  (J/KG  C) 
TAUALF  - THE  PRODUCT  OF  THE  TRANSMITTANCE  OF  THE  GLASS 

AND  THE  ABSORPTANCE  OF  THE  COLLECTOR  PLATE  SURFACE. 

NOTE  THAT  DIFFUSE  RADIATION  IS  TREATED  AS  IF  IT  STRIKES 
THE  COLLECTOR  SURFACE  AT  60  DEGREES. 

GAM  - USED  TO  SCALE  AVERAGE  FLOW  RATES  TO  ACTUAL  FLOW  RATES 
FOR  PORTION  OF  TIME  COLLECTOR  IS  OPERATING 


THIS  PROGRAM  HAS  FOUR  MODES  OF  OPERATION  AS  DETERMINED 
FY  THE  VALUE  OF  MODE. 

IF  M0DE=1,  UL  AND  TAUALF  ARE  CONSTANTS 
IF  MODE=2,4,  UL  IS  CALCULATED  AS  A FUNCTION  OF: 

THE  NUMBER  OF  GLASS  COVERS 

THE  THERMAL  EMITTANCE  OF  THE  COLLECTOR  PLATE  SURFACE 
- THE  CONTRIBUTION  TO  UL  DUE  TO  BOTTOM  AND  EDGE 
LOSSES  (W/M2-C) 

THE  TILT  OF  THE  COLLECTOR  WITH  RESPECT  TO  HORIZONTAL  (DEG) 
THE  WINDSPEED  (M/SEC) 

IF  MODE=3,4,  TAUALF  IS  CALCULATED  AS  A FUNCTION  OF: 

THETAl  - THE  ANGLE  OF  INCIDENCE  OF  RADIATION  ON  THE  COLLECTOR  (DEG 
ALF  - THE  ABSORPTANCE  OF  THE  COLLECTOR  PLATE 
SURFACE  (CONTSTANT) 

XKL  - PRODUCT  OF  THE  EXTINCTION  COEFFICIENT  AND  THE 
THICKNESS  OF  EACH  GLASS  COVER 
REFIND  - THE  REFRACTIVE  INDEX  OF  THE  GLASS 

HBT  - THE  INSTANTANEOUS  BEAM  RADIATION  ON  THE  COLLECTOR  SURFAC 


NG 

EP 

UBE 

ANGLE  - 
WIND 
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521  C 

(W/M2) 

522  C 

HDT  - THE  INSTANTANEOUS  DIFFUSE  RADIATION  ON  THE 

523  C 

COLLECTOR  SURFACE  (W/M2). 

524  C 

525  C 

ADAPTED  FROM  KLEIN  ET  AL.,  ’‘TRNSYS  - A TRANSIENT 

526  C 

SIMULATION  PROGRAM,”  UNIVERSITY  OF  WISCONSIN  - MADISON, 

527  C 

ENGINEERING  EXPERIMENT  STATION  REPORT  38,  1976. 

528  C 

529 

COMMON  TIME,XIN(40) ,0UTI(80) ,TI(10) ,DTDTI(10) ,PARI(99) 

530 

COMMON/FILES / INDATA , KLMIT , KOUT , LUTERM 

531 

DIMENS ION  ATR( 3 ) , BTR( 3 ) , CTR( 3 ) , TAU040 ( 3 ) 

532 

ASIN(X)=ATAN(X/SQRT(1.-X*X)) 

533  C 

534  C 

INITIALIZE  CONSTANTS 

535 

EG=.88 

536 

PI=3. 1415927 

537 

SB=5.67E-08 

538 

ATR(l)=-2.9868 

539 

BTR(l)=-3.7360 

540 

CTR(1)=4.3541 

541 

ATR(2)=-1.4214 

542 

BTR(2)»-5.7356 

543 

CTR(2)=5.7723 

544 

ATR(3)=-. 74816 

545 

BTR(3)=-6.5262 

546 

CTR(3)=6.3769 

547 

TAU040(1)=.92 

548 

TAU040(2)=.845 

549 

TAU040(3)=.785 

550 

REFIND=1.526 

551  C 

552 

MODE=PARI(l)+.l 

553 

A=PARI(2) 

554 

FP=PARI(3) 

555 

CPF=PARI(4) 

556 

ALF=PARI(5) 

557 

GOTO  (21, 22, 23, 24), MODE 

558 

21 

TAU*PARI(6) 

559 

UL=PARI(7) 

560 

TAUALF=TAU*ALF 

561 

GOTO  71 

562 

22 

TAU=PARI(6) 

563 

XNG=PARI(8) 

564 

EP=PARI(9) 

565 

UBE=PARI(10) 

566 

ANGLE=PARI(11) 

567 

NG=XNG+.l 

568 

TAUALF=TAU*ALF 

569 

GOTO  71 

570 

23 

UL=PARI(7) 
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571 

XNG=PARI(8) 

572 

XKL=PARI(12) 

573 

NG=XNG+.l 

574 

GOTO  78 

575 

24 

XNG=PARI(8) 

576 

EP=PARI(9) 

577 

UBE=PARI(10) 

578 

ANGLE=PARI(11) 

579 

XKL=PARI(12) 

580 

NG=XNG+.l 

581 

78 

CONTINUE 

582 

TAU60=EXP(-1.21453*XKL*XNG)*(1.-EXP((ATR(NG)+(BTR(NG)+CTR(NG) 

583 

1 

*.5)*. 5)*. 5)) 

584  C 

TAU60  IS  THE  TRANSMITTANCE  OF  THE  GLASS  COVER  SYSTEM  AT  AN 

585  C 

ANGLE  OF  INCIDENCE  OF  60  DEGREES,  AS  ASSUMED  FOR  DIFFUSE 

586  C 

RADIATION.  SEE  HOTTEL  AND  WOERTZ. 

587 

71 

CONTINUE 

588 

TIN=XIN(1) 

589 

FLWRT=XIN(2) 

590 

GAM=XIN(8) 

591 

TA=XIN(3) 

592 

GOTO  (31,32,33,34),  MODE 

593 

31 

CONTINUE 

594 

HR=XIN(4) 

595 

GOTO  72 

596 

32 

HR=XIN(4) 

597 

WIND=XIN(6) 

598 

GOTO  73 

599 

33 

HBT=XIN(4)  - XIN(5) 

600 

HDT=XIN(5) 

601 

THETA1=XIN(7) 

602 

GOTO  83 

603 

34 

HBT=XIN(4)  - XIN(5) 

604 

HDT=XIN(5) 

605 

WIND=XIN(6) 

606 

THETA1=XIN(7) 

607 

83 

CONTINUE 

608  C 

609 

HR=HBT+HDT 

610 

TAU=0. 

611 

IF(THETA1.GT.85.)  GOTO  96 

612 

IF(HR.LE.l.E-lO)  GOTO  96 

613 

THETAl=THETAl*2.*PI/360. 

614 

C0STH1=C0S(THETA1) 

615 

STH2=SIN(THETA1 ) /REFIND 

616 

IF(ABS(STH2).GT.  .99999)  GOTO  25 

617 

THETA2=ASIN(STH2) 

618 

GOTO  26 

619 

25 

THETA2=PI/2. 

620 

26 

C0STH2=C0S(THETA2) 
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621 

TAU=TAU040(NG) 

622 

IF(C0STH1.GE.  0.766)  GOTO  86 

623 

TAU=1 .-EXP ( (ATR(NG)+(BTR(NG)+CTR(NG)*C0STH1 )*C0STH1 )*COSTHl ) 

624 

86 

CONTINUE 

625 

TAU=HBT/HR*  TAU*EXP (-XNG*XKL /COSTH2 ) 

626 

TAU=TAU+HDT/HR  * TAU60 

627  C 

628 

96 

CONTINUE 

629 

TAUALF=ALF*TAU 

630  C 

631 

GOTO(72,73,72,73),MODE 

632 

73 

CONTINUE 

633 

ICT=0 

634 

HWIND=5.7+3.8*WIND 

635 

TM=TIN 

636 

74 

CONTINUE 

637 

ICT=ICT+1 

638 

IF(ICT.GT.2)  GOTO  97 

639 

TMC=TM+273.15 

640 

TAC=TA+273.15 

641 

IF(TMC.LE.TAC)  TMC=TAC+1 . 

642 

F=(1.0-0.04*HWINEH-5.0E-4*HWIND*HWINt))*(1.0+.091*XNG) 

643 

C=3  65 . 9* ( 1 . - . 00883* ANGLE+ . 0001 298* ANGLE* ANGLE ) 

644 

STF1=C/TMC* ( (TMC-TAC) /(XNG+F) )** .33 

645 

STF1=XNG/STF1  + l./HWIND 

646 

STF1=1./STF1 

647 

STF2=1./(EP+.05*XNG*(1.-EP))  + (2 .*XNG+F-1 . ) /EG-XNG 

648 

STF2=SB* (TMC*TMC+TAC*TAC)*(TMC+TAC) /STF2 

649 

UL-(STF1+STF2)  + UBE 

650  C 

UL  IS  CALCULATED  USING  THE  RELATION  OF  KLEIN 

651  C 

652 

72 

CONTINUE 

653 

IF(FLWRT)  4,4,3 

654 

3 

CONTINUE 

655  C 

SCALE  FLOW  RATE  UP  TO  ACTUAL 

656 

IF(GAM.LT.  l.E-3)  GOTO  4 

657 

AFLWRT=FLWRT/GAM 

658 

FR=AFLWRT*CPF* (1 .-EXP (-FP*UL*A/ (AFLWRT*CPF) ) ) /(A*UL) 

659 

QU=GAM*A*FR*(HR*TAUALF  - UL*(TIN-TA)) 

660 

TOUT=TIN  + QU/(FLWRT*CPF) 

661 

GOTO  5 

662 

4 

QU=0. 

663 

TOUT=HR*TAUALF/UL  + TA 

664 

5 

CONTINUE 

665 

TM=(TIN+T0UT)/2. 

666 

GOTO (97 ,74,97,74) ,MODE 

667 

97 

CONTINUE 

668 

OUTI(l)=TOUT 

669 

OUTI(2)=FLWRT 

670 

OUTI(3)=QU 
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671 

OUTI(4)=UL 

672 

OUTI(5)=TAUALF 

673 

RETURN 

674 

END 
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675  C 

676  SUBROUTINE  SGH 

677  C 

678  C TYPE  15  SIMPLIFIED  GREENHOUSE 

679  C 

680  C THIS  SUBROUTINE  DOES  A SIMPLIFIED  SUMULATION  OF  THE 

681  C ENERGY  BALANCE  OCCURING  IN  A GREENHOUSE.  THE  SOLAR  HEAT  GAIN 

682  C PLUS  THE  SUM  OF  ANY  EXTERNALLY  SUPPLIED  HEAT  IS  BALANCED 

683  C AGAINST  THE  HEAT  REMOVED  BY  TRANS  MISSION  THROUGHT  THE  COVER 

684  C AND  BY  VENTILATION,  EITHER  NATURAL  OR  POWERED.  IF  THE 

685  C VENTILATION  IS  POWERED,  THE  AIR  CAN  BE  EVAPORATIVELY  COOLED  AS 

686  C IT  ENTERS  BY  SPECIFYING  AN  APPROPRIATE  SATURATION  EFFICIENCY 

687  C OF  THE  ENTERING  AIR.  THE  WALL  PROPERTIES  CAN  BE  CHANGED  BY 

688  C A CONTROL  INPUT  VARIABLE  AS  HAPPENS  WHEN  A CLOCK  CONTROLS  A THERMA 

689  C SCREEN. 

690 

691  C 

692  C 

693  C PROGRAMMED  BY  B.  A.  KIMBALL,  U.  S.  WATER  CONSERVATION 

694  C LABORATORY,  PHOENIX,  ARIZONA.  1979. 

695  C 

696  COMMON  TIME,XIN(40) ,OUTI(80) ,TI(10) ,DTDTI(10) ,PARI(99) 

697  COMMON  ETOL,ITMAX,NTIMES,FTRACE,STRACE,DELT,HDELT 

698  COMMON/FILES/INDATA, KLMIT ,KOUT ,LUTERM 

699  C 

700  C ***  PARAMETERS  *** 

701  C 

702  C TOTAL  NUMBER  OF  EXTERNAL  DEVICES  WHICH  CONTRIBUTE  ENTHALPY 

703  JMAX=PARI(1)  + .1 

704  C 

705  C AREA  OF  COVER  (M2) 

706  AC=PARI(2) 

707  C 

708  C AREA  OF  SOIL  (M2) 

709  AG=PARI(3) 

710  C 

711  C VOLUME  OF  AIR  INSIDE  GREENHOUSE  (M3) 

712  VAI=PARI(4) 

713  C 

714  C FRACTION  OF  VENTILATION  HEAT  REMOVAL  THAT  IS  LATENT 

715  C (0  TO  LESS  THAN  1,  BUT  MUST  NOT  EQUAL  1) 

716  FL=PARI(5) 

717  C 

718  C CONTROL  VARIABLE  FOR  NATURAL  VENTILATION 

719  C (0  FOR  SHUT  AND  1 FOR  OPEN) 

720  GAMN=XIN(8) 

721  C CONSTANT  IN  EQUATION  FOR  NATURAL  VENTILATION  (AIR  CHANGES/H 

722  B2=(1.-GAMN)*PARI(6)  + GAMN*PARI(8) 

723  C 

724  C LINEAR  COEF  IN  EQUATION  FOR  NATURAL  VENTILATION 
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725  C 

726 

727  C 

728  C 

729  C 

730 

731  C 

732  C 

733 

734  C 

735  C 

736 

737  C 

738  C 

739 

740  C 

741  C 

742 

743  C 

744  C 

745 

746  C 

747  C 

748 

749  C 

750  C 

751  C 

752  C 

753  C 

754 

755  C 

756  C 
i 757 

758  C 

759  C 

760 

761  C 

762  C 

) 763 

764  C 

765  C 

766 

767  C 

768  C 

769  C 
i 770 

771  C 

772  C 

773  C 
- 774 


(AIR  CHANGES/HR)/(M/S) 
B3=(1.-GAMN)*PARI(7)  + GAMN*PARI(9) 


MAXIMUM  AIR  CHANGES /HR  WITH  FAN  VENTILATION 
ARMAX=PARI(10) 

SATURATION  EFFICIENCY  OF  EVAPORATIVE  AIR  COOLER  (%) 
ETA=PARI(11) 

REFLECTIVITY  OF  CROP  AND/OR  SOIL  FOR  SOLAR  RADIATION 
RH0V*=PARI(12) 

CONTROL  VARIABLE  FOR  SELECTING  COVER  PROPERTIES  (0  TO  1) 
GAMC=XIN(6) 

TRANSMISSIVITY  OF  COVER  FOR  SOLAR  RADIATION 
TAUS=(1.-GAMC)*PARI(13)  + GAMC*PARI(16) 

CONSTANT  IN  EQUATION  FOR  U (W/M2  C) 

B0=(1.-GAMC)*PARI(14)  + GAMC*PARI(17) 

LINEAR  COEFFICIENT  IN  EQUATION  FOR  U (W/M2  C)/(M/S) 
B1=(1.-GAMC)*PARI(15)  + GAMC*PARI(18) 


***  INPUTS  *** 


TOTAL  DOWNCOMING  SOLAR  RADIATION  (W/M2  OF  GROUND  AREA) 
ST=XIN(1) 

OUTSIDE  WIND  SPEED  (M/S) 

UAO  = XIN(2) 

BAROMETRIC  PRESSURE  (KPA) 

PA0=XIN(3) 

OUTSIDE  DRY  BULB  (C) 

TA0=*XIN(4) 

OUTSIDE  WET  BULB  (C) 

TWB0=XIN(5) 

CONTROL  VARIABLE  FOR  POWERED  VENTILATION 
(0  FOR  FANS  OFF  AND  1 FOR  FANS  ON) 

GAMP=XIN(7) 

COMPUTE  SUMS  FOR  AIR  FLOWS  (KG/S)  FROM  EXTERNAL 
DEVICES.  TEMP  IN  DEG  C. 

SUMTX=0. 
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775 

776 

777 

778 

779 

780 

781 

782  C 

783 

784 

785 

786  C 

787  C 

788  C 

789 

790  C 

791  C 

792 

793  C 

794  C 

795 

796  C 

797  C 

798  C 

799 

800 

801  C 

802 

803 

804 

805  C 

806  C 

807 

808  C 

809  C 

810  C 

811 
812 

813 

814  C 

815  C 

816 

817 

818 

819  C 

820  C 

821  C 

822  C 

823  C 

824 


SUMMX=0. 

IF(JMAX.EQ.O)  GOTO  2 
DO  1 J=1,JMAX 
JJ=9  + 2*(J-1) 

SUMMX=SUMMX  + XIN(JJ+1) 

SUMTX=SUMTX  + XIN( JJ+1)*XIN(JJ) 

1 CONTINUE 

MULTIPLY  BY  HUMID  AIR  HEAT  CAPACITY 
SUMMX=SUMMX*1020. 

SUMTX=SUMTX*1020. 

2 CONTINUE 


COMPUTE  SOLAR  RADIATION  ABSORBED  BY  GREENHOUSE 
SI=AG*ST*TAUS*(1 .-RHOV) 

COMPUTE  COEFFICIEFNT  OF  HEAT  TRANSMISSION 
U-BO  + B1*UA0 

COMPUTE  AIR  DENSITY  (KG/M3) 

DA=PAO/ ( . 287 * ( TACH2 7 3 . 1 6 ) ) 

COMPUTE  VENTILATION  RATE  IN  AIR  CHANGES/HR 
NATURAL 

ARN=B2  + B3*UA0 

IF(GAMN.EQ.  1.  .AND.  ARN.LT.18.)  ARN=18. 

POWER  VENTILATION  RATE  IN  AIR  CHANGES/HR 
ARP=GAMP*ARMAX 
AR=ARP 

IF(ARN.GT.ARP)  AR=ARN 

MULTIPLY  BY  GREENHOUSE  VOLUME,  AIR  DENSITY,  AND  SPECIFIC  HEAT 
TO  CONVERT  TO  W/C 
AR= ( AR/3600 . ) *VAI*DA*1020 . 


TEST  FOR  LATENT  FRACTION  = 1. 

IF(FL.GT.  .999)  WRITE(K0UT,3) 

3  FORMATC"  ***  WARNING  FL,  FRACTION  LATENT,  HAS  BEEN  SET  = .999”) 
IF(FL.GT.  .999)  FL=.999 

COMPUTE  INSIDE  GREENHOUSE  TEMPERATURE 
TAI=SI  + SUMTX  + TAO*AC*U 

TAI=TAI  + AR*(TAO  - ETA*(TA0-TWB0))/(1 .-FL) 

TAI=TAI/(AC-^U  + (AR/(1.-FL))  + SUMMX) 


***  OUTPUTS  *** 


GREENHOUSE  TEMPERATURE  (C) 
0UTI(1)=TAI 
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825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 


SOLAR  RADIATION  ABSORBED  BY  GREENHOUSE  (W) 

OUTI(2)=SI 

TOTAL  EXTERNAL  HEAT  SUPPLIED  TO  GREENHOUSE 
SUMX=0. 

IF(JMAX.EQ.O)  GOTO  5 
DO  4 I=1,JMAX 
JJ=9  + 2*(I-1) 

SUMX=SUMX  + XIN(JJ+1)*1020.*(XIN(JJ)-TAI) 

4 CONTINUE 

5 0UTI(3)=SUMX 

TRANSMISSION  OUT  THROUGH  COVER  (INCLUDING  THERMAL  IR)  (W) 
OUT I ( 4 ) =AC*U* ( TAI-TAO ) 

SENSIBLE  HEAT  REMOVED  BY  VENTILATION  (W) 

0UTI(5)=AR*(TAI  - TAO  + ETA*(TAO-TWBO)) 

TOTAL  SENSIBLE  PLUS  LATENT  HEAT  REMOVED  BY  VENTILATION(W) 
OUTI(6)=OUTI(5)/(l.-FL) 

RETURN 

END 
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849  C 

850 

851  C 

852  C 

853  C 

854  C 

855  C 

856  C 

857  C 

858  C 

859  C 

860  C 

861  C 

862  C 

863  C 

864  C 

865  C 

866  C 

867  C 

868  C 

869  C 

870  C 

871  C 

872  C 

873  C 

874  C 

875  C 

876  C 

877  C 

878 

879 

880 
881 
882 

883 

884  C 

885  C 

886  C 

887  C 

888 

889  C 

890  C 

891 

892  C 

893  C 

894 

895  C 

896  C 

897  C 

898 


SUBROUTINE  NSRAD 

TYPE  17  NIGHT  SKY  RADIATOR 

THIS  SUBROUTINE  SIMULATES  A NIGHT  SKY  RADIATOR  CONSISTING 
OF  A STREAM  OF  WATER  COVERED  BY  A SELECTIVE  SURFACE.  THE 
RADIATOR  HAS  A COVER  TRANSPARENT  TO  THERMAL  RADIATION  TO  PROVIDE 
AN  INSULATING  AIR  LAYER.  WATER  FLOWS  IN  ONE  END  AT 
A GIVEN  FLOW  RATE  AND  THE  COMPUTATION  PROCEEDS  SEGMENT-WISE 
DOWN  THE  RADIATOR  TO  OBTAIN  THE  EXIT  TEMPERATURE  OF  THE  WATER. 

THIS  FIRST  CASE  IS  THE  NORMAL  MODE  1. 

AN  ALTERNATIVE  MODE  2 IS  FOR  THE  CASE  OF  NO  COVER  AND 
NO  INSULATING  AIR  LAYER.  FOR  THIS  CASE  SR  NSRAD  SETS  THE 
INSIDE  CONVECTIVE  HEAT  TRANSFER  COEFFICIENT  EFFECTIVELY  TO 
INFINITY.  IT  ALSO  IGNORES  PARAMETERS  8,9,10,  AND  11  AND 
INSTEAD  SETS  COVER  TRANSMITTANCE  TO  ZERO  AND  USES 
1 - SURFACE  EMITTANCE  FOR  THE  COVER  REFLECTANCE. 

ALSO  THERE  IS  A MODE  3 WHERE  THE  COVER  HUMIDITY 
RATIO  IS  SET  EQUAL  TO  SATURATION  AT  THE  COVER  TEMPERATURE.  WITH 
NO  INSULATING  AIR  LAYER  AND  A COVER  TRANSMITTANCE  » 0.0  AND 
EMITTANCE  =.96  FOR  WATER,  A POND  CAN  BE  SIMULATED. 

IN  MODE  2 & 3 USER  SHOULD  SET  SURFACE  EMITTANCE  EQUAL  TO 
COVER  VALUE. 

PROGRAMMED  BY  B.  A.  KIMBALL,  U.  S.  WATER  CONSERVATION 
LABORATORY,  PHOENIX,  ARIZONA.  1979. 

COMMON  TIME,XIN(40),OUTI(80),TI(10),DTDTI(10),PARI(99) 

COMMON  ETOL , ITMAX , NTIMES , FTRACE , STRACE , DELT i HDELT 
COMMON/FILES / INDATA , KLMIT , KOUT , LUTERM 
COMMON/NSR/TCOV , TSUR 

DIMENSION  TW(11),TS(10),TC(10),R(10),H(10),E(10) 

REAL  KDO,L 

* FUNCTIONS  * 

SATURATION  VAPOR  PRESSURE  (KPA  FROM  T IN  C) 
SVP(T)=0.61078*EXP(17.2697*T/(T+237.3)) 

SATURATION  HUMIDITY  RATIO  (KG/KG  FROM  P IN  KPA  AND  T IN  C) 
SHR0(P,T)=0.62198/((P/SVP(T))-1.) 

LATENT  HEAT  OF  VAPORIZATION  (J/KG) 

HVAP(T)=2.501E6  -2381. *T 


FRACTION  OF  BLACK  BODY  RADIATION  IN  8-14  U BAND 
FW(T)=. 34906  + 1.2495E-3*T  - .91397E-5*T**2 
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899  C 

900  C 

901  C 

902  C 

903 

904  C 

905  C 

906 

907  C 

908  C 

909  C 

910 

911 

912  C 

913  C 

914 

915 

916  C 

917  C 

918 

919  C 

920  C 

921  C 

922 

923 

924 

925 

926  C 

927  C 

928 

929 

930  C 

931  C 

932  C 

933  C 

934  C 

935  C 

936  C 

937  C 

938  G 

939  C 

940 

941  C 

942  C 

943  C 

944 

945  C 

946  C 

947 

948  C 


***  PARAMETERS  *** 


LENGTH  OF  RADIATOR  (M) 
XLEN=PARI(1) 

WIDTH  OF  RADIATOR  (M) 
WIDTH=PARI(2) 


CONVECTIVE  EXCHANGE  COEFFICIENTS 
B0=PARI(3) 

B1=PARI(4) 

CONSTANT  AND  EXPONENT  FOR  INSIDE  TRANSFER  COEF 
C0HI=PARI(5) 

C1HI=PARI(6) 

CONSTANT  IN  EQN  FOR  WATER  TRANSFER  COEF 
CW=PARI(7) 

TRANSMITTANCE  AND  REFLECTANCE  OF  DRY  COVER  FOR  THERMAL  RADIATION 

INSIDE  THE  8-14  U ATMOSPHERIC  WINDOW  AND  OUTSIDE  THE  WINDOW. 
TCWD=PARI(8) 

TC0D==PARI(9) 

RCWD=PARI(10) 

RC0D=PARI(11) 

EMITTANCE  OF  RADIATING  SURFACE  IN  WINDOW  AND  OUTSIDE 
ESW=PARI(12) 

ES0=PARI(13) 

MODE.  SET=1  FOR  CASE  OF  TRANSPARENT  COVER  OVER  INSULATING  AIR 
LAYER. 

SET=2  FOR  CASE  OF  NO  INSULATING  AIR  LAYER.  THEN  PROGRAM 
WILL  SET  INSIDE  CONVECTION  TRANSPORT  COEF  EQUAL 
TO  500  W/M2/C 

SET=3  FOR  CASE  OF  WATER  POND.  WCO,  THE  HUMIDITY  RATIO 
AT  COVER  SURFACE  WILL  BE  SET  TO  SATURATION  VALUE 
AND  TCO=TCW=0.0  AND  ECW=ECO=ESW=ESO= . 96  FOR  WATER. 
AND  INSIDE  TRANSFER  COEF  = 500  W/M2/C 
M0DE=PARI(14)  + .01 

PARAMETER  TO  GET  SEGMENT  BY  SEBMENT  SUMMARY  PRINTED  WHEN  =1. 

OTHERWISE  SET  = 0 
IPRNT=PARI(15) 

NO.  OF  SEGMENTS 
NSEGS=PARI(16)  + .01 
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949  C EFFECTIVE  TRANSMITTANCE-ABSORPTANCE  PRODUCT  FOR  SOLAR  RAD 

950  TAUALF=PARI(17) 

951  C 

952  C ***  INPUTS  *** 

953  C 

954  C ENTERING  WATER  TEMP  (C) 

955  TW(1)=XIN(1) 

956  C 

957  C WATER  FLOW  RATE  (KG/S) 

958  F=XIN(2) 

959  C 

960  C TOTAL  LONG-WAVE  SKY  RADIATION  (W/M2) 

961  RA=XIN(3) 

962  C 

963  C 8-14  U SKY  RADIATION  (W/M2) 

964  RAW=XIN(4) 

965  C 

966  C SOLAR  RADIATION  IMPINGING  ON  RADIATOR  (W/M2) 

967  SA=XIN(5) 

968  C 

969  C OUTSIDE  WINDSPEED  (M/S) 

970  UA0=XIN(6) 

971  C 

972  C BAROMETRIC  PRESSURE 

973  P=XIN(7) 

974  C 

975  C OUTSIDE  DRY  BULB  TEMPERATURE  (C) 

976  TA0=XIN(8) 

977  C 

978  C OUTSIDE  HUMIDITY  RATIO  (KG/KG) 

979  WA0=XIN(9) 

980  C 

981  C ***  INITIALIZATION  *** 

982  C 

983  C INITIALIZE  STEPHAN-BOLTZMAN  CONSTANT  (W/M2  K4) 

984  SB=5.6697E-8 

985  C 

986  C INITIALIZE  WATER  FLOW  RATE  CONSTANT  (J/S  C) 

987  FCON=2.*F*4190. 

988  C 

989  C INITIALIZE  AREA  OF  EACH  SEGMENT  (M2) 

990  ASEG=(XLEN/FLOAT(NSEGS))*WIDTH 

991  C 

992  C 

993  C SKY  RADIATION  OUTSIDE  WINDOW 

994  RAO=RA  - RAW 

995  C 

996  C ABSORBED  SOLAR  RADIATION 

997  S=TAUALF*SA 

998  C 
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999  C 

1000  C 

1001 
1002 

1003  C 

1004  C 

1005  C 

1006 

1007 

1008 

1009 

1010 

1011  C 

1012  C 

1013  C 

1014 

1015 

1016 

1017  G 

1018  C 

1019 

1020 

1021  C 

1022  C 

1023 

1024  C 

1025  C 

1026  C 

1027 

1028 
1029 

; 1030 

i 1031 

1032 

1033 
: 1034 

1035 

1036  C 

1037  C 

1038  C 

1 1039 

,,  1040 

; 1041  c 

1 1042  C 

1 1043 
I 1044 
! 1045  C 

1046 

1047  C 

1048 


COMPUTE  OUTSIDE  AIR  CONVECTIVE  HEAT  AND  MASS  TRANSFER  COEFFICIENTS 
(W/M2/C),  (KG/M2/S) 

HO=BO+Bl*UAO 

KDO=HO/(1005.  + 1859. *WAO) 

IF  HAVE  NO  COVER  (MODE  * 2),  SET  THERMAL  PROPERTIVES  OF 
PRETEND  COVER  TO  SURFACE  VALUES 
IF(MODE.NE.2)  GOTO  2 
TCWD=0. 

TC0D=0. 

RCWD=1.-ESW 

RC0D=^1.-ES0 

INITIALIZE  AVERAGE  TEMPERATURE  OF  COVER  AND  SURFACE  IN  FIRST 
SEGMENT  TO  BE  VALUES  LAST  TIME  THAT  NSRAD  WAS  CALLED 
2 TSOLD=TSUR 
TGOLD=TCOV 
L=HVAP(TCOLD) 

REFLECTANCE  OF  SURFACE 
RSW=1.-ESW 
RS0=1.-ES0 

***  START  LOOP  FOR  SEGMENTS  *** 

DO  99  ISEG=1,NSEGS 

IF  ZERO  FLOW  RATE  SET  VALUES  FOR  THIS  SEGMENT  = VALUES  FOR 
PREVIOUS  SEGMENT 
IF(ISEG.EQ.l)  GOTO  31 
IF(F.GT.  l.E-4)  GOTO  31 
TS(ISEG)-TS(ISEG-1) 

TC(ISEG)^TC(ISEG-1) 

TW( ISEG+1 )^TW( ISEG) 

R(ISEG)=R(ISEG-1) 

H(ISEG)^H(ISEG-1) 

E(ISEG)-E(ISEG-1) 

GOTO  32 

MAKE  INITIAL  GUESS  FOR  AVERAGE  COVER  AND  SURFACE  TEMPERATURE 
IN  MIDDLE  OF  SEGMENT  TO  BE  THE  SAME  TEMP  AS  IN  THE  LAST  SEGMENT. 
31  IF(ISEG.GT.l)  TSOLD^TS(ISEG-l) 

IF(ISEG.GT.l)  TCOLD  ^ TC(ISEG-l) 

***  START  ITERATION  LOOP  FOR  COVER  TEMPERATURE  *** 

ITER=0 

9 ITER-ITER+1 

WCOLD=SHRO(P, TCOLD) 

TEST  IF  HAVE  DRY  COVER  OR  DEW-WETTED  COVER  OR  WATER  POND 
IF(MODE.EQ.3)  GOTO  6 
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1049 

IF(WCOLD.LT.WAO)  GOTO  6 

1050  C 

HAVE  DRY  COVER 

1051 

sw=o. 

1052 

WCOLD=WAO 

1053 

TCW=TCWD 

1054 

TCO=TCOD 

1055 

RCW=RCWD 

1056 

RC0=RC0D 

1057 

GOTO  7 

1058  C 

HAVE  DEW-WETTED  COVER  OR  WATER  POND 

1059 

6 

SW=WCOLD*( 1 .+WC0LD/0 . 62198)*4098 . 03/(TCOLD+237 . 3)**2 

1060 

TCW=0 . 

1061 

TC0=0 . 

1062 

RCW=0.04 

1063 

RC0=0.04 

1064 

L=HVAP(TCOLD) 

1065 

7 

CONTINUE 

1066  C 

EMITTANCE  OF  COVER 

1067 

ECW=1.-TCW-RCW 

1068 

EC0=1.-TC0-RC0 

1069  C 

SUMS  OF  REFLECTED  RAY  FACTORS 

1070 

DNW=1 .-RCW*RSW 

1071 

DN0=1.-RC0*RS0 

1072 

PAW=ECW*( 1 .+TCW*RSW/DNW) 

1073 

PAO=ECO* ( 1 . +TCO*RSO/DNO ) 

1074 

PSW=ECW/DNW 

1075 

PSO=ECO/DNO 

1076 

PCW=  -2  + RSW*ECW/DNW 

1077 

PCO=  -2  + RSO*ECO/DNO 

1078 

QAW=TCW*ESW/DNW 

1079 

QAO=TCO*ECO/DNO 

1080 

QSW=  -1  + RCW*ESW/DNW 

1081 

QSO=  -1  + RCO*ECO/DNO 

1082 

QCW=ESW/DNW 

1083 

QCO=ESO/DNO 

1084  C 

OBTAIN  ABSOLUTE  TEMPS  AND  CUBES 

1085 

TCABS=TCOLD+273.16 

1086 

TSABS=TSOLEH-273.16 

1087 

TC3=TCABS**3 

1088 

TS3=TSABS**3 

1089  C 

FRACTIONS  OF  BB  RADIATION  IN  AND  OUT  OF  WINDOW 

1090 

FCW=FW(TCOLD) 

1091 

FC0=1.-FCW 

1092 

FSW=FW(TSOLD) 

1093 

FS0=1.-FSW 

1094  C 

BB  RADIATION  AT  OLD  TEMPS  AND  SLOPES 

1095 

RBC0LD=SB*TC3*TCABS 

1096 

RBS0LD=SB*TS3*TSABS 

1097 

SC=4.*SB*TC3 

1098 

SS=4.*SB*TS3 
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1099  C 

1100 
1101 
1102 

1103 

1104  C 

1105  C 

1106 

1107 

1108 

1109 

1110  C 

1111 
1112 

1113 

1114 

1115 

1116  C 

1117  C 

1118 

1119 

1120  C 

1121 
1122 

1123 

1124 

1125 

I 1126 
I 1127 
1128 
1129 
i 1130 
i 1131  C 
i 1132 
I 1133 
: 1134 

1135 

1136  C 

1137  C 
I 1138  C 
I 1139 

, 1140 
[ 1141 

1142  C 

1143  C 

1144 
i 1145 
1 1146 

1147  C 

1148  C 


SHORTENING  VARIABLES 
PS=ESW*FSW*PSW  + ESO*FSO*PSO 
PC=ECW*FCW*PCW  + ECO*FCO*PCO 
QS=ESW*FSW*QSW  + ESO*FSO*QSO 
QC=ECW*FCW*QCW  + ECO*FCO*QCO 

COMPUTE  INSIDE  HEAT  TRANSFER  COEF.  DIVIDE  BY  2 SINCE  HAVE  2 
SURFACES . 

DT=ABS(TSOLD-TCOLD) 

IF ( MODE . EQ . 1 ) HI= ( C0HI*DT**C1HI ) / 2 . 

IF(MODE.EQ.2  .OR.  M0DE.EQ.3)  HI=500. 

IF(TCOLD.GT.TSOLD)  HI=HI/2. 

ESTIMATE  WATER  HEAT  TRANSFER  COEF 
HWC0EF=60. 

IF(ITER.EQ.l  .AND.  TW(ISEG) .GT .TSOLD) 

1 HWCOEF=CW*(TW(ISEG)-TSOLD)**.33 

IF(ITER.GT.l  .AND.  TWAVE.GT. TSOLD)  HWCOEF=CW*(TWAVE-TSOLD)**.33 
IF(HWC0EF.LT.60.)  HWC0EF^60. 

COMPUTE  AVERAGE  BULK  WATER  TEMP  IN  SEGMENT  BASED  ON  OLD 
ESTIMATE  OF  COVER  TEMP 
TWAVE=FCON*TW(ISEG)  + ASEG*HWCOEF*TSOLD 
TWAVE=TWAVE/(FCON  + ASEG*HWCOEF) 

COMPUTE  LINEAR  EQUATION  COEFFICIENTS 
A1^PS*SS  + HI 

B1=PC*SC  “HO  - L*KDO*SW  “ HI 

Cl=  -RAW*PAW  -RAO*PAO  - RBSOLD*PS  + PS*SS*TSOLD 

C1=C1  - RBCOLD*PC  + PC*SC*TCOLD 

C1=C1  “ HO*TAO  - L*KDO*(WAO-WCOLD  + SW*TCOLD) 

A2^QS*SS  - HI  - HWCOEF 
B2=QC*SC  + HI 

C2=^  -RAW*QAW  - RAO*QAO  - RBS0LD*QS  + QS*SS*TSOLD 
C2^C2  - RBCOLD*QC  + QC*SC*TCOLD 
C2=C2  - HWGOEF*TWAVE  - S 
SOLVE  BY  CRAMER’S  RULE 
D=A1*B2  “ A2*B1 
IF(ABS(D).LT.  l.E-20)  GOTO  4 
TSNEW=(C1*B2  - C2*B1)/D 
TCNEW=(A1*C2  - A2*G1)/D 
TEST  FOR  CONVERGENCE 

USE  .1C  FOR  A COARSE  TOLERANCE  AND  LET  MAIN  MEB  PROGRAM 
DO  FINE  TOLERANCE  WITH  ETOL 

IF(ABS(TSNEW-TSOLD).LT.  0.1  .AND.  ABS(TCNEW-TCOLD) .LT . 0.1) 

1 GOTO  14 

IF(ITER.GT.25)  GOTO  4 

CONVERGENCE  NOT  ATTAINED,  RESET  AND  GO  BACK 
TCOLD=TCNEW 
TSOLD-TSNEW 
GOTO  9 

CONVERGENCE  NOT  ATTAINED,  ZERO  DETERMINANT  OR  TOO  MANY  ITERATIONS 
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1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 
1181 
1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 


4 WRITE (KOUT, 13)  ITER,ISEG,D,TWAVE,TCOLD,TSOLD,TCNEW,TSNEW 

13  FORMATC*  ***  NSRAD  NOT  CONVERGED  AFTER  ",I3,"  ITERATIONS”/ 

1 " ISEG  = ”,I3,"  D = ",E13.6,”  TWAVE  = ”,E13.6/ 

2 " TCOLD  = ”,E13.6,"  TSOLD  = ",E13.6/ 

3 ” TCNEW  = ",E13.6,"  TSNEW  = ",E13.6) 

CC 

C CONVERGENCE  ATTAINED.  COMPUTE  TEMP  OF  THE  WATER  LEAVING  SEGMENT. 

14  TC(ISEG)=TCNEW 

TS(ISEG)=TSNEW 

TW(ISEG+1)=TW(ISEG)  - 2.*(TW(ISEG)-TWAVE) 

C 

C COMPUTE  THE  NET  THERMAL  RADIATION, SENSIBLE , AND  LATENT 

C HEAT  ABOVE  THE  SEGMENT 

R(ISEG)=RAW*(1.  - RCW  - RSW*TCW**2/DNW) 

R(ISEG)=R(ISEG)  + RA0*(1.  - RCO  - RSO*TCO**2/DNO) 

R(ISEG)=R(ISEG)  + ESW*FSW*RBSOLD*(-TCW/DNW) 

R(ISEG)=R(ISEG)  + ESO*FSO*RBSOLD*(-TCO/DNO) 

R(ISEG)=R(ISEG)  + ECW*FCW*RBCOLD*(-l . - RSW*TCW/DNW) 
R(ISEG)=R(ISEG)  + EC0*FC0*RBC0LD*(-1 . - RSO*TCO/DNO) 
R(ISEG)=R(ISEG)*ASEG 
H(ISEG)=-ASEG*HO*(TC(ISEG)  - TAO) 

E(ISEG)=-ASEG*L*KDO*(WCOLD  - WAO) 


32  IF(IPRNT.NE.l)  GOTO  99 
C 

C PRINT  OUT  SEGMENT  BY  SEGMENT  SUMMARY 

IF(ISEG.EQ.l)  WRITE (KOUT, 20) 

C 

C TEST  FOR  ZERO  FLOW  RATE 

IF(ISEG.EQ.l)  GOTO  33 
IF(F.LE.  l.E-4)  GOTO  34 
C 

C COMPUTE  NET  RADIATION  BELOW  COVER 

33  RNS=RAW*(TCW  - TCW*RSW)/DNW 
RNS=RNS  + RAO*(TCO  - TCO*RSO)/DNO 
RNS=RNS  + ESW*FSW*RBSOLD*(-l.  + RCW)/DNW 
RNS=RNS  + ESO*FSO*RBSOLD*(-l.  + RCO)/DNO 
RNS=RNS  + ECW*FCW*RBCOLD*(l.  - RSW)/DNW 
RNS=RNS  + ECO*FCO*RBCOLD*(l.  - RSO)/DNO 
RNS=RNS*ASEG 

C COMPUTE  SENSIBLE  HEAT  IN  AIR  UNDER  COVER  AND  WATER 

AHEAT=ASEG*HI*(TCNEW  - TSNEW) 

WHEAT=ASEG*HWCOEF* ( TWAVE-TSNEW) 

C 

20  FORMAT(1HO,4X," TEMPERATURES --ABOVE  COVER-", 

1 " —BELOW  COVER-  TRANSFER  COEFFICIENTS"/ 

2 5X,"WATR  SRFS  COVR  AIR  RNET  SENS  LAT  RNET  ASEN" , 

3 " WSEN  HO  HI  HW’7 

4 " ISEG (C) (W/M2) ", 

5 " (W/M2) (W/M2/C) ") 
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1199 

34 

WRITE (KOUT , 2 1 ) I SEG , TWAVE , TSNEW , TCNEW , TAO , R( I SEG) , H( ISEG) , E ( ISEG) , 

1200 

1 

RNS , AHEAT , WHE AT , HO , HI , HWCOEF 

1201 

21 

F0RMAT(1X,I3,4F5.1,1X,3F5.0,1X,3F5.0,1X,3F7.2) 

1202 

C 

1203 

C 

GO  ON  TO  NEXT  SEGMENT 

1204 

99 

CONTINUE 

1205 

C 

1206 

C 

***  OUTPUTS  *** 

1207 

C 

1208 

C 

EXIT  WATER  TEMPERATURE 

1209 

OUTI ( 1 )=TW(NSEGS+1 ) 

1210 

C 

1211 

C 

EXIT  WATER  FLOW  RATE  (=  INLET  FLOW  RATE)(KG/S) 

1212 

OUTI(2)=XIN(2) 

1213 

C 

AVERAGE  COVER  AND  SURFACE  TEMPS  (C) 

1214 

OUTI(3)=0. 

1215 

OUTI(4)=0. 

1216 

DO  17  I=1,NSEGS 

1217 

0UTI(3)=0UTI(3)  + TC(I) 

1218 

17 

OUTI(4)=OUTI(4)  + TS(I) 

1219 

OUTI ( 3 )=OUTI ( 3 ) /FLOAT (NSEGS ) 

1220 

OUTI(4)=OUTI(4)/FLOAT(NSEGS) 

1221 

C 

1222 

C 

TOTAL  RATE  OF  ENERGY  CHANG  OF  THE  WATER  (W) 

1223 

OUTI(5)=-F*4190.*(TW(1)-TW(NSEGS+1)) 

1224 

C 

1225 

C 

TOTAL  RATE  OF  ENERGY  CHANGE  BY  NET  THERMAL  RADIATION, SENSIBLE , 

1226 

C 

AND  LATENT  HEAT 

1227 

0UTI(6)=0. 

1228 

0UTI(7)=0. 

1229 

OUTI(8)=0. 

1230 

DO  16  ISEG=1, NSEGS 

1231 

OUTI(6)=OUTI(6)+  R(ISEG) 

1232 

OUTI(7)=OUTI(7)  + H(ISEG) 

1233 

OUTI(8)=OUTI(8)  + E(ISEG) 

1234 

16 

CONTINUE 

1235 

C 

1236 

C 

SAVE  COVER  AND  SURFACE  TEMPS  FOR  INITIAL  VALUES  NEXT  TIME  NSRAD 

1237 

TCOV=TC(l) 

1238 

TSUR=TS(1) 

1239 

C 

1240 

RETURN 

1241 

END 
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1242  C 

1243 

1244  C 

1245  C 

1246  C 

1247  C 

1248  C 

1249  C 

1250  C 

1251  C 

1252  C 

1253  C 

1254  C 

1255  C 

1256  C 

1257  C 

1258  C 

1259  C 

1260  C 

1261  C 

1262  C 

1263  C 

1264  C 

1265 

1266 

1267 

1268 

1269  C 

1270  C 

1271 

1272  C 

1273  C 

1274 

1275  C 

1276  C 

1277 

1278  C 

1279  C 

1280  C 

1281  C 

1282 

1283 

1284 

1285  C 

1286  C 

1287 

1288 

1289 

1290 

1291 


SUBROUTINE  ROCK 

TYPE  19  ROCK  BED 

THIS  SUBROUTINE  SIMULATES  THE  PERFORMANCE  OF  A ROCK  BED 
USED  FOR  THERMAL  ENERGY  STORAGE  WITH  AIR  AS  THE  TRANSFER  FLUID.  T 
MODEL  IS  BASED  ON  THAT  OF  S.A.  MUMMA  AND  W.C.  MARVIN,  1976, 

"A  METHOD  OF  SIMULATING  THE  PERFORMANCE  OF  A PEBBLE  BED  THERMAL 
ENERGY  STORAGE  AND  RECOVERY  SYSTEM,"  ASME-AICHE  HEAT  TRANSFER  CONF 
PARTICLE  SIZE  IS  SMALL  ENOUGH  SO  THAT  TEMPERATURE  GRADIENTS  INSIDE 
PARTICLES  ARE  INSIGNIFICANT,  IE.  THAT  THE  BIOT  NUMBER,  HR/K,  IS  LE 
THAN  0.1 

A SIGNIFICANT  ENHANCEMENT  TO  MUMMA  AND  MARVIN  IS  THE  ACCOUN 
OF  LATENT  HEAT  TRANSFER.  CONDENSATION  OF  MOISTURE  CAN  OCCUR  ON  TH 
PARTICLES  WHENEVER  THE  HUMIDITY  RATIO  OF  THE  AIR  EXCEEDS  THE  SATU 
SIGNIFICANT  ABSORPTION  OF  MOISTURE  OCCURS  , AND  THAT  IT  DRAINS 
AWAY.  THUS,  CONDENSATION  CAN  OCCUR  IN  THE  BED,  BUT  NOT  EVAPORATIO 

PROGRAMMED  BY  B.A.  KIMBALL,  .S.  WATER  CONSERVATION 
LABORATORY,  PHOENIX,  ARIZONA.  1980. 

COMMON  TIME,XIN(40),0UTI(80),TI(10),DTDTI(10),PARI(99) 

COMMON/FILES/ INDATA , KLMIT , KOUT , LUTERM 
DIMENSION  TA(11),WA(11),EA(11) 

REAL  LEN,  KAPPA,  KV 

SATURATION  VAPOR  PRESSURE  (KPA  FROM  C - TETENS’  EQN) 
SVP(T)=0.61078*EXP(17.2694*T/(T+237.40)) 

SATURATION  HUMIDITY  RATIO  (KG /KG) 

SHR(T,P)=0.62198/((P/SVP(T))  - 1.) 

ENTHALPY  (J/KG) 

EPY(T,W)=1005.*T  + W*(2468.E3  + 1859. *T) 

***PARAMETERS*** 


NUMBER  OF  SEGMENTS 
NMAX=PARI(1)+  .1 
NMP1=NMAX  + 1 
NMM1=NMAX  - 1 

LENGTH(M),AREA(M2),AND  PERIMETER(M)  OF  ROCK  BED 
LEN=PARI(2) 

DELL=LEN/FLOAT(NMAX) 

AREA=PARI(3) 

PER=PARI(4) 

AREAP=PER*DELL 
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1292  C 

1293  C 

1294 

1295  C 
I 1296  C 

1297  C 

1298 

1299  C 

^ 1300  C 

1301 

1302 
! 1303 
I 1304 

1305 

1306 

1307  C 

1308  C 

1309 

1310  C 

1311  C 

1312  C 

1313  C 

1314  C 

1315 

1316 
! 1317 

! 1318 

1319 
! 1320 

1321  C 
I 1322  C 

, 1323  C 

1324  C 

1325  C 

1326  C 

1327 

1328 
I 1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337  C 

1338 

1339  C 

1340  C 

1341  C 


EQUIVALENT  DIAMETER  OF  INDIVIDUAL  ROCKS (M) 

DR=PARI(5) 

EFFECTIVE  VOLUMETRIC  HEAT  CAPACITY  OF  ROCKS  INCLUDING  VOID 

SPACE  (J/(M3*C)) 

CR=PARI(6) 

LOSS  COEFFICIENT  (W/(M2*C))  AND  AXIAL  THERMAL  CONDUCTIVITY(W/(MC)) 
U=PARI(7) 

KAPPA=PARI(8) 

US>=U*AREAP 
UE»U*(AREAP  + AREA) 

IF(NMAX.EQ.l)  UE=U*(AREAP  + 2*AREA) 

KAPPA=KAPPA*AREA/DELL 

DENOMINATOR  FOR  DTDT  EQNS 
DENOM=*AREA*DELL*CR 


***INPUTS*** 


TEMPERATURE (C), FLOW  RATE(KG/S) , AND  HUMIDITY  RATIO  OF  AIR  ENTERING 
TOP  AND  BOTTOM 
TA(1)=XIN(1) 

FTOP=XIN(2) 

WA(1)=XIN(3) 

TA(NMP1)=XIN(4) 

FBOT=XIN(5) 

WA(NMP1)=XIN(6) 

GET  THE  CONTROL  VARIABLES  THAT  PROPORTION  THE  FLOW  TO  FRACTIONS 
OF  MAXIMUS  AND  DIVIDE  TO  SCALE  UP  THE  FLOWS  TO  WHAT  THEY  ACTUALLY 
WOULD  BE  FOR  THE  FRACTIONS  OF  TIME  THE  ROCK  BED  IS  IN  OPERATION. 
USE  THE  ACTUAL  MAX  FLOWS  TO  COMPUTE  THE  VOLUMETRIC  HEAT 
TRANSFER  COEFFICIENT  (W/(M3*C))  FROM  THE  LOF  AND  HAWLEY  EQUATION. 
GAMT=XIN(7) 

GAMB=XIN(8) 

GMAXT=0. 

IF(GAMT.LT.  l.E-6)  GOTO  7 
GMAXT=FTOP/ ( AREA*GAMT) 

7 GMAXB=0. 

IF(GAMB.LT.  l.E-6)  GOTO  8 
GMAXB=FBOT/ ( AREA*GAMB ) 

8 GMAX=GMAXT 

IF(GMAXB.GT.GMAXT)  GMAX=GMAXB 
VOLUMETRIC  HEAT  TRANSFER  COEFFICIENT 
HV=650.*(GMAX/DR)**.7 

BAROMETRIC  PRESSURE(KPA)  AND  TEMP(C)  OF  ENVIRONMENT  AROUND 
ROCK  BED 
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1342 

PRES=XIN(9) 

1343 

TENV=XIN(10) 

1344 

C 

1345 

C 

TEST  FOR  FLOW  DIRECTION 

1346 

IF(FBOT.EQ.O.)  GOTO  100 

1347 

IF(FTOP.EQ.O.)  GOTO  200 

1348 

C 

1349 

C 

HAVE  ILLEGAL  CASE  OF  BOTH  FLOWS  ON  AT  SAME  TIME. 

1350 

C 

BY  AN  ORDER  OF  MAGNITUDE 

1351 

RATIO=FTOP/FBOT 

1352 

IF(RATIO.GT.  0.1  .AND.  RATIO. LT.  10.)  WRITE (KOUT, 10) 

FTOP,FBOT 

1353 

10 

FORMATC*  ***WARNING  - FLOW  GOING  UP  AND  DOWN  IN  ROCK 

BED.", 

1354 

L •*  USING  LARGER"/ 

1355 

1 

" FTOP=  ",E13.5,"  FBOT=  ",E13.5) 

1356 

IF(FBOT.GT.FTOP)  GOTO  200 

1357 

C 

1358 

C 

HAVE  AIR  FLOW  FROM  TOP  TO  BOTTOM  OF  BED 

1359 

100 

F=FTOP 

1360 

FLDIR=+1 . 

1361 

G=F/AREA 

1362 

C 

SPECIFIC  HEAT  OF  AIR  (J/KG) 

1363 

CA=1005.  + WA(1)*1859. 

1364 

C 

VOLUMETRIC  MASS  TRANSFER  C0EF(KG/(S*M2)) 

1365 

KV=HV/CA 

1366 

C 

EXPOENTIAL  DECAY  FACTOR 

1367 

EXDF=0. 

1368 

IF(G.LT.  l.E-6)  GOTO  101 

1369 

KV=KV*DELL/G 

1370 

IF(KV  .LT.  50.)  EXDF=EXP(-KV) 

1371 

C 

AIR  ENTHALPY  ENTERING  TOP 

1372 

101 

EA(1)=EPY(TA(1),WA(1)) 

1373 

C 

1374 

C 

LOOP  TO  COMPUTE  AIR  ENTHALPY,  TEMP,  HUM  RATIO  LEAVING  EACH  SEGMENT 

1375 

DO  110  N=1,NMAX 

1376 

C 

1377 

C 

COMPUTE  SAT  HUM  RATIO  AT  ROCK  TEMP  FOR  SEGMENT 

1378 

WR=SHR(TI(N) ,PRES) 

1379 

IF(WR.GE.WA(N))  WR=WA(N) 

1380 

C 

AIR  ENTHALPY  AT  ROCK  INTERFACE 

1381 

ER=EPY(TI(N),WR) 

1382 

C 

1383 

EA(N+1)=(EA(N)-ER)*EXDF  + ER 

1384 

TA(N+1)=TI(N)  + (TA(N)-TI(N))*EXDF 

1385 

WA(N+1)=(EA(N+1)-1005.*TA(N+1))/(2468.E3  + 1859.*TA(N+1)) 

1386 

110 

CONTINUE 

1 

1387 

GOTO  290 

. 

1388 

C 

1 

1389 

C 

1 

1390 

C 

HAVE  AIR  FLOW  FROM  BOTTOM  TO  TOP  OF  BED 

1391 

200 

F=FBOT 

I 
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1392 

1393 

1394  C 

1395 

1396  C 

1397 

1398  C 

1399 

1400 

1401 

1402 

1403  C 

1404 

1405  C 

1406  C 

1407 

1408 

1409  C 

1410  C 

1411 

1412 

1413  C 

1414 

1415  C 

1416 

1417 

1418 

1419 

1420  C 

1421  C 

1422  C 

1423  C 

1424  C 

1425 

1426 

1427 

1428 

1429  C 

1430  C 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439  C 

1440  C 

1441 


FLDIR=-1 . 

G=F/AREA 

SPECIFIC  HEAT  OF  AIR  (J/KG) 

CA=1005.  + WA(NMP1)*1859. 

VOLUMETRIC  MASS  TRANSFER  COEF  (KG/(S*M2)) 

KV=HV/CA 

EXPOENTIAL  DECAY  FACTOR 
EXDF=0. 

IF(G.LT.  l.E-6)  GOTO  201 
KV=KV*DELL/G 

IF(KV.LT.  50.)  EXDF=EXP(-KV) 

AIR  ENTHALPY  ENTERING  BOTTOM 
201  EA(NMP1)=EPY(TA(NMP1),WA(NMP1)) 

LOOP  TO  COMPUTE  AIR  ENTHALPY,  TEMP, HUM  RATIO  LEAVING  EACH  SEGMENT 
DO  210  N=1,NMAX 
NM=NMP1-N 

COMPUTE  SAT  HUM  RATIO  AT  ROCK  TEMP  FOR  SEGMENT 
WR=SHR(TI(NM) ,PRES) 

IF(WR.GE.WA(NM+1))  WR=WA(NM+1) 

AIR  ENTHALPY  AT  ROCK  INTERFACE 
ER=EPY(TI(NM),WR) 

EA(NM)=(EA(NM+1)-ER)*EXDF  + ER 

TA(NM)=TI(NM)  + (TA(NM+1 )-TI(NM) )*EXDF 

WA(NM)=(EA(NM)  - 1005.*TA(NM))/(2468.E3  + 1859.*TA(NM)) 

210  CONTINUE 


COMPUTE  RATE  OF  TEMP  CHANGE  OF  ROCKS 

FOR  TOP  SEGMENT 
290  TQENV=UE*(TI(1)-TENV) 

DTDTI(1)=(FLDIR*F*(EA(1)-EA(2))  - TQENV)/DENOM 
IF(NMAX.EQ.l)  GOTO  320 

DTDTI(1)=DTDTI(1)  - KAPPA* ( TI( 1 )-TI(2 )) /DENOM 

MIDDLE  SEGMENTS 
IF(NMAX.EQ.2)  GOTO  310 
DO  300  N=2,NMM1 
QENV=US*(TI(N)-TENV) 

TQENV=TQENV  + QENV 

DTDTI(N)=FLDIR*F*(EA(N)-EA(N+1))  - QENV 
DTDTI(N)=DTDTI(N)  + KAPPA* ( TI ( N+1 ) - 2.*TI(N)  + TI(N-l)) 
DTDTI(N)=DTDTI(N)/DENOM 
300  CONTINUE 

FOR  BOTTOM  SEGMENT 
310  QENV=UE*(TI(NMAX)  - TENV) 
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1442  TQENV=TQENV  + QENV 

1443  DTDTI(NMAX)=FLDIR*F*(EA(NMAX)-EA(NMP1))  - QENV 

1444  DTDTI(NMAX)=DTDTI(NMAX)  + KAPPA*(TI(NMM1)-TI(NMAX)) 

1445  DTDTI(NMAX)=DTDTI(NMAX)/DENOM 

1446  C 

1447  C ***OUTPUTS*** 

1448  C 

1449  C TEMP(C),  FLOW  RATE(KG/S),  HUM  RATIO  OF  AIR  LEAVING  BOTTOM 

1450  320  0UTI(1)=TA(NMP1) 

1451  0UTI(2)=‘FT0P 

1452  0UTI(3)=WA(NMP1) 

1453  C 

1454  C TEMP,  FLOW  RATE,  HUM  RATIO  OF  AIR  LEAVING  TOP 

1455  0UTI(4)=TA(1) 

1456  0UTI(5)=FB0T 

1457  0UTI(6)=WA(1) 

1458  C 

1459  C RATE  OF  TOTAL  ENERGY  ADDITION  TO  BED  FROM  STREAM  ENTERING  TOP  (W) 

1460  0UTI(7 )=FTOP*(EA( 1 )-EA(NMPl ) ) 

1461  C 

1462  C RATE  OF  WATER  CONDENSATION  FROM  STREAM  ENTERING  TOP  (KG/S) 

1463  0UTI(8)=FT0P*(WA(1)-WA(NMP1)) 

1464  C 

1465  C RATES  OF  ENERGY  ADDITION  AND  WATER  CONDENSATION  FROM  BOTTOM  STREAM 

1466  0UTI(9 )=FB0T*(EA(NMP1 )-EA( 1 ) ) 

1467  OUTI( 10)=FB0T*(WA(NMP1 )-WA( 1 ) ) 

1468  C 

1469  C RATE  OF  ENERGY  LOSS  TO  THE  ENVIRONMENT  (W) 

1470  0UTI(11)=TQENV 

1471  C 

1472  C ROCK  BED  TEMPERATURES  (C)  BY  SEGMENT 

1473  DO  330  N=1,NMAX 

1474  330  0UTI(N+11)=TI(N) 

1475  C 

1476  RETURN 

1477  END 
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FTN. 


COVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOV 
PROGRAM  MEBV3(5) 

DIMENSION  IPAR(5) 

CALL  RMPAR(IPAR) 

INSTN=IPAR(1) 

GOTO  INSTN 
END 
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2 FTN. 


9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 


COVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOV 

c 

SUBROUTINE  CGH 
C 

C TYPE  14  COMPLICATED  GREENHOUSE 

C 

C THIS  SUBROUTINE  DOES  A DETAILED  SIMUALTION  OF  THE  ENERGY 

C BALANCES  OCCURING  AT  THE  OUTER  COVER  SURFACE,  INNER  COVER 

C SURFACE,  VEGETATION,  SOIL  SURFACE,  CURTAIN  HEAT  EXCHANGER,  SOIL 

C STORAGE  LAYER,  AND  AIR,  AND  A MASS  BALANCE  ON  THE  AIR. 

C ALL  SOLAR  AND  THERMAL  RADIATION  AND  SENSIBLE  AND  LATENT 

C AND  SOIL  CONDUCTION  HEAT  FLUXES  ARE  COMPUTED  INDIVIDUALLY. 

C 

C PROGRAMMED  BY  B.  A.  KIMBALL,  U.  S.  WATER  CONSERVATION 

C LABORATORY,  PHOENIX,  ARIZONA.  1979. 

C 

COMMON  TIME,XIN(40),OUTI(80),TI(10),DTDTI(10),PARI(99) 

COMMON  ETOL , ITMAX, NTIMES , FTRACE , STRACE , DELT , HDELT 
COMMON/FILES/ INDATA , KLMIT , KOUT , LUTERM 

COMMON/CGHMN/GHOLD(8) ,MMAX,BR,GS(3) ,GS0LD(3) ,GSUM(4) ,TD, 

1 BRF(4,24) ,TGOOLD(26) ,TGSOLD(26) ,GHTIME 

DIMENSION  C(10),A(8,9),GH(8),B(13),S(5,9),TX(5),WX(5) 

DIMENSION  GAM(7),GMl(7),AF(5,5),EP(14),GEOM(18),RHO(5) 

DIMENSION  V(5,5),EPW(5) 

REAL  LO,LI,NRV,K(10),UC,KDF,KDN,MX(4),MXC,MXG,MXE 
C 
C 

C ***FUNCTIONS  *** 

C 

C SATURATION  VAPOR  PRESSURE  (TETENS)  (KPA  FROM  T IN  C) 

SVP(T)=0.61078*EXP(17.2694*T/(T+237.3)) 

C 

C SATURATION  HUMIDITY  RATIO  (KG/KG  FROM  P IN  KPA  AND  T IN  C) 

SHRO(P,T)=.62198/((P/SVP(T))-l.) 

C 

C HUMIDITY  RATIO  (KG/KG  FROM  P AND  VP  IN  KPA) 

HRO(P,VP)=.62198*VP/(P-VP) 

C 

C SLOPE  OF  HUMIDITY  RATIO  VS  TEMPERATURE  CURVE 

SW(W,T)=W*(1.  + W/0.62198)*4098.03/(T+237.3)**2 
C 

C HUMID  SPECIFIC  HEAT  (J/KG  C) 

HSH(W)=  1005.  + 1859*W 
C 

C LATENT  HEAT  OF  VAPORIZATION  (J/KG) 

HVAP(T)=2.501E6  - 2381. *T 
C 

C MASS  TRANSFER  COEFFICIENT  FROM  HEAT  TRANSFER  COEFFICIENT  (KG/S  M2) 

FKD(H,W)=H/(1005.  + 1859. *W) 

C CONTROL  VARIABLE  FOR:  1-COVER  FLUID, 2-COVER  PROPERTIES 
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59  C 

60  C 

61 
62 

63 

64  C 

65  C 

66  C 

67  C 

68  C 

69  C 

70 

71  C 

72  C 

73 

74  C 

75  C 

76 

77  C 

78  C 

79 

80  C 

81  C 

82 

83 

84  C 

85  C 

86 

87 

88  C 

89  C 

90 

91 

92  C 

93  C 

94 

95 

96  C 

97  C 

98 

99  C 

100  C 

101 

102  C 

103  C 

104 

105  C 

106  C 

107 

108  C 


3-POWERED  AIR  CIRCULATION, 4-NATRUAL  VENTILATION, 
5-CURTAIN  HEAT  EXCHANGER  HEIGHT 
DO  42  1=1,7 
GAM(I)=XIN(I+8) 

42  GM1(I)=1.-GAM(I) 


***  PARAMETERS  *** 


TOTAL  NUMBER  OF  EXTERNAL  DEVICES  WITH 
SENSIBLE  AND  LATENT  HEAT  FLUXES) 

JMAX=PARI(1)  + .1 

AREA  OF  COVER  (M2) 

GEOM(l)=PARI(2) 

AREA  OF  SOIL  (M2) 

GEOM(3)=PARI(3) 

VOLUME  OF  AIR  IN  GREENHOUSE  (M3) 

GE0M(5)=PARI(4) 

LENGTH  OF  ROW  OF  VEGETATION  = LENGTH  OF  GREENHOUSE  (M) 
GEOM(6)=PARI(5) 

IF(GEOM(6).LE.  0.)  GEOM(6)=  0.1 

ROW  SPACING  (MUST  NOT  = 0.  !)  (M) 

GEOM(7)=PARI(6) 

IF(GEOM(7).LE.O.)  GE0M(7)=  1.0 

NUMBER  OF  VEGETATION  ROWS  PER  CURTAIN  HEAT  EXCHANGER 
GEOM(8)=PARI(7) 

NE=GEOM(8)+.01 

HEIGHT  OF  CURTAIN  HEAT  EXCHANGER (M) 

GEOM(IO)  = PARI(8)*GAM(6) 

IF(GEOMho)  .LT.  .001)  GEOM(  10)= . 001 

REFLECTANCE  OF  VEGETATION  FOR  SOLAR 
RHOV=  PARI(9) 

REFLECTANCE  OF  SOIL  FOR  SOLAR 
RH0G=PARI(10) 

EMITTANCE  OF  DRY  VEGETATION  FOR  THERMAL  RAD 
EP(IO)  = PARI(ll) 

EMITTANCE  OF  DRY  SOIL  FOR  THERMAL 
EP(12)=  PARI(12) 
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4 CGH 


109  C EMITTANCE  OF  DRY  CURTAIN  HEAT  EXCHANGER 

110  EP(14)=PARI(13) 

111  C 

112  C HEAT  CAPACITY  OF  COVER  FLUID(J/KG/C) 

113  CXC=PARI(14) 

114  C 

115  C HEAT  CAPACITY  OF  SOIL  FLUID  (J/KG/C) 

116  CXG  =PARI(15) 

117  C 

118  C HEAT  CAPACITY  OF  CURTAIN  HEAT  EXCHANGER  FLUID 

119  CXE  = PARI(16) 

120  C 

121  C CONSTANT  IN  EQUATION  FOR  OUTSIDE  TRANSFER  COEFFICIENT  (W/M2 

122  B(1)=PARI(17) 

123  C 

124  C LINEAR  COEFFICIENT  IN  EQUATION  FOR  OUTSIDE  TRANSFER 

125  C COEFFICIENT  (W/M2  C)/(M/S) 

126  B(2)=PARI(18) 

127  C 

128  C CONSTANT  IN  EQUATION  FOR  INSIDE  TRANSFER  COEFFICIENT 

129  C (W/M2  C)/(C)**1/B(4) 

130  B(3)=PARI(19) 

131  C 

132  C EXPONENT  IN  EQUATION  FOR  INSIDE  TRANSFER  COEFFICIENT 

133  B(4)=PARI(20) 

134  C 

135  C CONSTANTS  IN  EQUATION  FOR  NATURAL  VENTILATION  THROUGH  VENTILATORS 

136  B(5)=GAM(5)*PARI(21) 

137  B(6)=GAM(5)*PARI(22) 

138  B(7)=GAM(5)*PARI(23) 

139  C 

140  C 

141  C STOMATAL  RESISTANCE 

142  B(8)=PARI(24) 

143  B(9)=PARI(25) 

144  B(10)=PARI(26) 

145  C 

146  C SOIL  SURFACE  RESISTANCE  (M2*S/KG) 

147  RSOIL=PARI(27) 

148  C 

149  C INSIDE  HEAT  TRANSFER  COEF  WHEN  POWER 

150  C CIRCULATION  FAN  IS  ON  (W/(M2*C)) 

151  HPOWR  = PARI(28)*GAM(4) 

152  C 

153  C INFRARED  HEATER  CAPACITY(W)  AND  RADIENT  FRACTION 

154  XR=PARI(29)*GAM(7) 

155  FR=PARI(30) 

156  C 

157  C 

158  C TRANSMITTANCE  OF  OUTER  AND  INNER  COVER  FOR  SOLAR 
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159  TAUS0=GM1(2)*PARI(31)  + GAM(2)*PARI(32) 

160  TAUSI=GM1(1)*GM1(3)*PARI(33)  + GM1(1)*GAM(3)*PARI(3A) 

161  1 +GAM(1)*GM1(3)*PARI(35)+GAM(1)*GAM(3)*PARI(36) 

162  C 

163  C 

164  C 

165  C ABSORPTANCE  OF  OUTER  AND  INNER  COVER  FOR  SOLAR 

166  ALSO  = GM1(2)*PARI(37)  + GAM(2)*PARI(38) 

167  ALSI  = GM1(1)*GM1(3)*PARI(39)  + GM1(1)*GAM(3)*PARI(40) 

168  1 -tGAM(l)*GMl(3)*PARI(41)  + GAM(1)*GAM(3)*PARI(42) 

169  C 

170  C THERMAL  CONDUCTANCE  OF  COVER  (W/(M2C)) 

171  UC=GM1(1)*GM1(3)*PARI(43)+GM1(1)*GAM(3)*PARI(44) 

172  1 4GAM(1)*GM1(3)*PARI(45)+GAM(1)*GAM(3)*PARI(46) 

173  UC=UC*GEOM( 1 ) 

174  C 

175  C 

176  C TRANSMITTANCE  OF  DRY  OUTER  AND  INNER  COVER  FOR  THERMAL  RADIATION 

177  TDO=  GM1(2)*PARI(47)  4GAM(2)*PARI(48) 

178  TDI  = GM1(1)*GM1(3)*PARI(49)  + GM1(1)*GAM(3)*PARI(50) 

179  1 +GAM(1)*GM1(3)*PARI(51)  + GAM(1 )*GAM(3)*PARI(52) 

180  C 

181  C EMMITTANCE  OF  DRY  OUTER  AND  INNER  SIDES  OF  OUTER  COVER  FOR  THERMAL 

182  EP(2)=GM1(2)*PARI(53)+GAM(2)*PARI(54) 

183  EP(4)  =GM1(2)*PARI(55)  4GAM(2)*PARI(56) 

184  C 

185  C EMITTANCE  OF  DRY  OUTER  AND  INNER  SIDES  OF  INNER  COVER  FOR  THERMAL 

186  C RADIATION 

187  EP(6)=GM1(1)*GM1(3)*PARI(57)  + GM1(1)*GAM(3)*PARI(58) 

188  1 ■H3AM(1)*GM1(3)*PARI(59)  + GAM(1)*GAM(3)*PARI(60) 

189  C 

190  EP( 8 )=GM1 ( 1 )*GM1 ( 3 )*PARI (61 )+GMl ( 1 )*GAM( 3 ) *PARI ( 62 ) 

191  1 +GAMU)*GMl(3)*PARI(63)+GAMh)*GAM(3)*PARI(64) 

192  C COEFFICIENTS  FOR  INFILTRATION 

193  B(11)=GM1(3)*GM1(4)*PARI(65)+GM1(3)*GAM(4)*PARI(66) 

194  1 4GAM(3)*GM1(4)*PARI(67)+GAM(3)*GAM(4)*PARI(68) 

195  B(12)=GM1(3)*GM1(4)*PARI(69)+GM1(3)*GAM(4)*PARI(70) 

196  1 +GAM(3)*GM1(4)*PARI(71)+GAM(3)*GAM(4)*PARI(72) 

197  B(13)=GM1(3)*GM1(4)*PARI(73)+GM1(3)*GAM(4)*PARI(74) 

198  1 +GAM(3)*GM1(4)*PARI(75)+GAM(3)*GAM(4)*PARI(76) 

199  C 

200  C 

201  C ***  INPUTS  *** 

202  C 

203  C TOTAL  DOWNCOMING  SOLAR  RADIATION  (W/M2) 

204  ST=XIN(1) 

205  C 

206  C THERMAL  RADIATION  FROM  SKY  AND  OUTSIDE  GROUND  (W) 

207  RAO=XIN(2)*(GEOM(3)  + (GEOM(l)-GEOM(3))/2.) 

208  RGO=((GEOM(l)-GEOM(3))/2.)*5.6697E-8*(XIN(5)+273.16)**4 
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209  C 

210  C 

211 

212  C 

213  C 

214 

215  C 

216  C 

217 

218  C 

219  C 

220 

221  C 

222  C 

223 

224 

225  C 

226  C 

227 

228 

229  C 

230  C 

231  C 

232  C 

233  C 

234 

235 

236 

237 

238 

239 

240  C 

241  C 

242  C 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255  C 

256  C 

257  C 

258  C 


OUTSIDE  WIND  SPEED  (M/S) 

UAO=XIN(3) 

OUTSIDE  BAROMETRIC  PRES SURE (KPA) 

PA0=XIN(4) 

OUTSIDE  AIR  TEMP  (C) 

TAO=XIN(5) 

OUTSIDE  HUMIDITY  RATIO  (KG/KG) 

WAO=XIN(6) 

HEIGHT  OF  ROW  OF  VEGETATION  (M)  (SET=0.  FOR  NO.  VEG) 

GEOM(9)=XIN(7) 

IF(GE0M(9).LE.  0.)  GE0M(9)=  0.001 

WIDTH  OF  ROW  OF  VEGETATION  (M)  (0  TO  GE0M(7)) 

GE0M(11)=XIN(8) 

IF(GEOMUl)  ‘LE*  0.)  GEOM(  11  )=0 . 001 


TEMPERATURE (C) AND  MASS  FLOW  RATES (KG/S)  OF 
FLUIDS  FROM  EXTERNAL  DEVICES  TO  COVER,  SOIL,  AND 
CURTAIN  HEAT  EXCHANGER 
TXC=XIN(16) 

MXC=XIN(17)*CXC*2. 

TXG=XIN(18) 

MXG=XIN(19)*CXG*2. 

TXE=XIN(20) 

MXE  = XIN(21)*CXE*2. 

GET  TEMP,  FLOW  RATE,  AND  HUMIDITY  FROM  EXTERNAL  DEVICES 
GOING  TO  GREENHOUSE  AIR 
SUMMX  =0. 

SUMEX=0 . 

IF(JMAX.EQ.O.)  GOTO  4 
DO  3 J=1,JMAX 
JJ=22  + (J-l)*3 
TX(J)=XIN(JJ) 

MX(J)=XIN(JJ+1) 

WX(J)=XIN(JJ+2) 

SUMMX=SUMMX  + MX(J) 

SUMEX=SUMEX  + WX(J)*MX(J) 


CONTINUE 

CONTINUE 

GEOM 

EP 

EPW 

RHO 

1 

AC 

EPCOO 

EPCOI 

RHCOI 

2 

AV 

EPCOOD 

EPCII 

RHOCEFF 

I 


272 


PAGE 

7 

CGH 

OPTS : 

LYI 

10:57  AM  TUE.,  30 

NOV. , 

1982 

259 

C 

3 

AG 

EPCOI  EPV 

RHOV 

260 

C 

4 

AE 

EPCOID  EPG 

RHOG 

261 

C 

5 

VAI 

EPCIO  EPE 

RHOE 

262 

C 

6 

L 

EPCIOD 

263 

C 

7 

S 

EPCII 

264 

C 

8 

NE 

EPCIID 

265 

C 

9 

Y 

EPV 

266 

C 

10 

X 

EPVD 

267 

C 

11 

W 

EPG 

268 

C 

12 

AVS 

EPGD 

269 

C 

13 

W/2 

EPE 

270 

C 

14 

NES 

EPED 

271 

C 

15 

X-Y 

272 

C 

16 

Y+W 

273 

C 

17 

NS 

274 

C 

18 

S-W 

275 

C 

CODE  FOR  GH(  ) 

, GHOLD( 

),  AND  S(  , ) 

276 

C 

GH( 

) GHOLD(  ) 

277 

C 

1 

TCO 

TCOOLD 

278 

C 

2 

TCI 

TCIOLD 

279 

C 

3 

TV 

TVOLD 

280 

C 

4 

TG 

TGOLD 

281 

C 

5 

TE 

TEOLD 

282 

C 

6 

TAI 

TAIOLD 

283 

C 

7 

WAI 

WAIOLD 

284 

C 

285 

c 

I 

S(I, 

1)  S(I,2)  S(I,3)  S(I,4)  S(I,5)  S(I 

,6)  S(I, 

7)  S(I 

,8)  S(I 

.9) 

286 

c 

1 

HO 

KDO 

RCOOLD 

SRCO  YRCO 

WCOOLD 

swco 

YWCO 

YCON 

287 

c 

2 

HICI 

KDCI 

RCIOLD 

SRC I YRCI 

WCIOLD 

SWCI 

YWCI 

YCIN 

288 

c 

3 

HIV 

KDV 

RVOLD 

SRV  YRV 

WVOLD 

swv 

YWV 

YYN 

289 

c 

4 

HIG 

KDG 

RGOLD 

SRG  YRG 

WGOLD 

SWG 

YWG 

YGN 

290 

c 

5 

HIE 

KDE 

REOLD 

SRE  YRE 

WEOLD 

SWE 

YWE 

YEN 

291 

c 

■k** 

NON-ITERATIVE  VARIABLES  *** 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 


PI=3. 14159 
TPI=2.*PI 

STEPHAN-BOLTZMAN  (W/M2  K4) 

SB=5.6697E-8 

COMPUTE  NO.  ROWS  VEGETATION  AND  VEGETATION  AREA 
IF(GE0M(7)  .EQ.  0.  .OR.  GE0M(6)  .EQ.  0.)  WRITE (KOUT, 41) 
41  FORMATC  ROW  SPACING  OR  ROW  LENGTH  EQUALS  ZERO") 

NRV=0. 

IF(GE0M(7)  .NE.  0.  .AND.  GE0M(6).NE.  0.)  NRV=GE0M(3)/ 

1 (GEOM(7)*GEOM(6)) 

GEOM(2)=2.*NRV*GEOM(6)*(GEOM(ll)  + GE0M(9)) 

VEGETATION  AREA  FOR  ABSORPTION  OF  SLOAR  RADIATION 
GEOM(12)=NRV*GEOM(6)*(GEOM(ll)  + GEOM(9))/2. 

IF(GE0M(12)  .GT.  GE0M(3))  GEOM( 12 )=GEOM( 3 ) 
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309  C 

310 

311  C 

312  C 

313 

314 

315 

316 

317 

318 

319  C 

320  C 

321  C 

322  C 

323  C 

324 

325  C 

326  C 

327 

328 

329 

330 

331 

332 

333  C 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351  C 

352 

353 

354  C 

355 

356  C 

357  C 

358 


AVERAGE  REFLECTANCE  OF  VEGETATION  AND  SOIL 
RHOVG=(RHOV*GEOM(12)  + (GEOM(3)-GEOM(12))*RHOG)/GEOM(3) 

TOTAL  CURTAIN  HEAT  EXCHANGER  AREA 
GEOM( 4 )=2 . *NRV*GEOM( 6 ) *GEOM( 10 ) /GEOM( 8 ) 
GEOM(13)=GEOM(ll)/2. 

GEOM( 14 )=GEOM( 8 ) *GEOM( 7 ) 

GEOM( 1 5 )=GEOM( 10 )-GEOM( 9 ) 

GEOM(16)=GEOM(9)+GEOM(ll) 

GEOM(18)=GEOM(7)-GEOMhl) 

WRITE(KOUT)(GEOM(I),I=l,18) 


ANGLE  FACTORS  FOR  THERMAL  RADIATION 
COVER  TO  COVER 
AF(2,2)=l.-(GEOM(3)/GEOM(l)) 

EXCHANGER  TO  COVER 
AF(5,2)=0. 

IF(GEOM(15)  .LE.O.)  GO  *10  43 
AF(5,2)=.5 

IF(GE0M(10).LE.1.E-3)G0  TO  43 
BETA=2 . *ATAN(GEOM( 15 ) / ( 2 . *GEOM( 14 ) ) ) 

AF ( 5 , 2 )= (GEOM( 1 5 ) /GEOM( 10 ) ) * ( PI-BETA) /TPI 
EXCHANGER  TO  SOIL 
43  AF(5,4)=0 

IF(GE0M(15).LE.0.)G0  TO  46 
AF(5,4)=.5 

IF(GEOM(10).LE.1.E-3)GO  TO  46 
AF(5,4)=AF(5,2) 

IF(GEOM(9).LE.l.E-3)  GOTO  46 
SBETA=0 . 

N=0 
44  N=N+1 

BETA=ATAN( ( FLOAT( N ) *GEOM( 7 )-GEOM( 1 3 ) ) / ( GEOM( 9 )+( GEOM( 1 5 ) /2 . ) ) ) 
BETA=BETA-ATAN( (FL0AT(N)*GE0M(7 )-GEOM( 13)-GE0M( 18) ) / 

1 (GEOM(15)/2.)) 

IF  (BETA  .LE.  0.)G0  TO  45 
SBETA=SBETA+BETA 
IF(N  .GE.  NE)  GO  TO  45 
GO  TO  44 

45  AF(5,4)=(GE0M(15)/GE0M(10))*(SBETA/PI) 

EXCHANGER  TO  VEGETATION 

46  IF(GEOM(15).LE.O.)AF(5,3)=1. 
IF(GE0M(15).GT.0.)AF(5,3)=(GE0M(9)/GE0M(10))+AF(5,2)-AF(5,4) 

EXCHANGER  TO  EXCHANGER 
AF(5,5)=1.-AF(5,2)-AF(5,3)-AF(5,4) 

SOIL  TO  COVER  AND  SOIL  TO  EXCHANGER 
AF(4,2)=0. 


274 


PAGE 


9 


CGH 


OPTS ; LYI 


10:57  AM  TUE.,  30  NOV.,  1982 


359 

360  C 

361 

362  C 

363 

364 

365 

366  C 

367 

368 

369 

370 

371  C 

372  55 

373 

374 

375 

376  C 

377  56 

378 

379 

380 

381 

382 

383  47 

384 

385 

386 

387  C 

388  C 

389  48 

390  C 

391 

392  C 

393  C 

394 

395 

396 

397 

398 

399  C 

400  C 

401  68 

402  C 

403 

404  C 

405 

406 

407 

408 


AF(4, 5)=0. 

CHECK  CLOSED  CANOPY 
IF(GEOM(18).LT.l.E-6)GO  TO  48 
CHECK  EXCHANGER  SHORTER  THAN  VEGATATION,  VEGETATION  ZERO 
AF(4,2)=1. 

IF(GE0M(10).LE.GE0M(9)  .AND.  GEOM(9) .LE . 1 .E-3)GO  TO  48 
IF(GEOM(10).LE.  l.E-3  .AND.  GE0M(9).LE.  l.E-3)  GOTO  48 
SHORT  EXCHANGER,  TALL  VEGETATION 
IF(GEOM(10).GT.GEOM(9))GO  TO  55 
BETA=2 . *ATAN(GE0M( 18 ) / ( 2 . *GEOM( 9 ) ) ) 
AF(4,2)=(GEOM(18)/GEOM(7))*BETA/PI 
GOTO  48 

TALL  EXCHANGER,  SHORT  VETETATION 
IF(GEOM(9).GT.l.E-3)GO  TO  56 
AF(4,2)=2.*ATAN(GEOM(14)/(2.*GEOM(10)))/PI 
AF(4,5)=1.-AF(4,2) 

GO  TO  48 

TALL  EXCHANGER,  TALL  VEGETATION 
BETAC=2 . *ATAN(GEOM( 18 ) /( 2 . *GEOM( 9 ) ) ) 

BETAM=ATAN( 2 . *GEOM( 9 ) /GEOM( 18 ) ) 

SBETA=0 . 

DO  47  N=1,NE 

BETA=ATAN( GEOM( 1 0 ) / ( FLOAT ( N ) *GEOM( 7 ) - ( GEOM( 7 ) / 2 . ) ) ) -BETAM 

IF( BETA. GT . 0 . ) SBETA=SBETA+BETA 

CONTINUE 

SBETA=SBETA*2 . /GEOM( 8 ) 

AF ( 4 , 2 )= (GEOM( 1 8 ) /GEOM( 7 ) ) * ( BETAC-SBETA) /PI 
AF ( 4 , 5 )= ( GEOM( 1 8 ) /GEOM( 7 ) ) *SBETA/PI 

SOIL  TO  VEGETATION 
AF(4,3)=1.-AF(4,2)-AF(4,5) 

SOIL  TO  SOIL 
AF(4,4)=0. 

VEGETATION  TO  SOIL 
AF(3,4)=.5 

IF(GE0M(16).LE. l.E-3)  GO  TO  68 
BETAC  = PI/2. 

IF(GEOM( 9 ) .GT . 1 . E-3 ) BETAC=ATAN( 2 . *GEOM( 18) /GEOM( 9 ) ) 
AF(3,4)=(GEOM(ll)+2.*GEOM(9)*(BETAC/PI))/(2.*(GEOM(16))) 

VEGETATION  TO  COVER 
AF(3,2)=.5 

VERY  SHORT  VEGETATION,  PICK  .5  AND  MOVE  ON 
IF(GE0M(16).LE. l.E-3)  GO  TO  58 
TALL  VEGETATION,  SHORT  EXCHANGER 
IF(GEOM(10).GT.GEOM(9))  GO  TO  57 
BETA=0 . 

IF(GE0M(18).LT. l.E-3)  GO  TO  60 
BETA=ATAN(GEOM( 1 8 ) / ( GEOM( 9 ) / 2 . ) ) 
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409 

410 

411  C 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434  C 

435  C 

436 

437 

438 

439 

440 

441 

442 

443 

444  C 

445  C 

446 

447  C 

448  C 

449 

450 

451 

452 

453  C 

454 

455  C 

456 

457  C 

458  C 


60 


57 


1 


49 


1 

1 


50 


58 


1 


51 


54 


AF(3,2)=(GEOM(ll)+2.*GEOM(9)*(BETA/PI))/(2.*(GEOM(16))) 

GO  TO  58 

TALL  VEGETATION,  TALL  EXCHANGER 
SBETA=0. 

DO  49  N=1,NE 

GEOM( 1 7 )=FLOAT(N) *GEOM( 7 ) 

BETA=ATAN((GEOM(17)-(GEOM(ll)/2.))/(GEOM(10)-(GEOM(9)/2.))) 

IF(BETA.GT.BETAC)  BETA  =BETAC 

SBETA=SBETA+BETA 

BETA=ATAN( ( GEOM( 1 4 )-GEOM( 1 7 )+GEOM( 1 8 )+( GEOM( 1 1 ) /2 . ) ) / 
(GEOM(10)-(GEOM(9)/2.))) 

IF(BETA.GT.BETAC)  BETA  =BETAC 

SBETA=SBETA+BETA 

CONTINUE 

SBETA=SBETA*GEOM( 9 ) 

DO  50  N=1,NE 
BETA=PI/2. 

IF ( GEOM( 1 0 ) . GT . GEOM( 9 ) ) BETA=ATAN( GEOM( 15)/ 

(FLOAT(N-l ) *GEOM( 7 )+( GEOM( 1 1 ) /4 . ) ) ) 

SBETA=SBETA+BETA*GEOM( 1 1 ) 

IF ( GEOM( 1 0 ) . GT . GEOM( 9 ) ) BETA=ATAN( GEOM( 1 5 ) / ( GEOM( 1 4 ) 

-FLOAT(N-l )*GEOM( 7 )-(GEOM( 1 1 ) /4 . ) ) ) 

sbeta=sbeta+beta*geomUi  ) 

CONTINUE 

AF(3,2)=SBETA/(TPI*GEOM(8)*(GEOM(16))) 

VEGETATION  TO  VEGETATION 
AF(3,3)=0 

IF(GEOM(16).LT.l.E-3)  GO  TO  51 
BETAC=PI 

IF ( GEOM( 1 8 ) . GT . 1 . E-6 ) BETAC=2 . * ATAN( ( GEOM( 9 ) /2 . ) /GEOM( 18)) 
AF(3,3)=(GEOM(8)-l.)*GEOM(9)*BETAC+.5*GEOM(9)*BETAC 
IF(GEOM(10).LT.GEOM(9))AF(3,3)=AF(3,3)+.5*(GEOM(9)-GEOM(10)) 
*BETAC 

AF(3,3)=AF(3,3)/(PI*GE0M(8)*(GE0M(16))) 

VEGETATION  TO  HEAT  EXCHANGER 
AF(3,5)=1.-AF(3,4)-AF(3,2)-AF(3,3) 

COVER  TO  EXCHANGER 
AF(2,5)=0 

IF(GE0M(10).LE.GE0M(9) .OR.GEOM(IO)  .LE.  .001)  GO  TO  54 
BETA=ATAN( ( 2 . *GEOM( 15)) /GEOM( 14)) 
AF(2,5)=(GEOM(3)/GEOM(l))*2.*BETA/PI 
COVER  TO  SOIL 

AF(2,4)=AF(4,2)*(GEOM(3)/GEOM(l)) 

COVER  TO  VEGETATION 
AF(2,3)=1.-AF(2,4)-AF(2,5)-AF(2,2) 

COMPUTE  SOLAR  RADIATION  ABSORBED  BY  COVER,  VEGETAION,  AND  SOIL 
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459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 


SC0=ST*GE0M(3)*ALS0*(1.+TAUS0*TAUSI*RH0VG*TAUSI) 

SCI=ST*GEOM(3)*TAUSO*ALSI*(l.+TAUSI*RHOVG) 

SV=ST*GE0M( 1 2 ) *TAUSO*TAUSI* ( 1 . -RHOV ) 
SG=ST*(GEOM(3)-GEOM(12))*TAUSO*TAUSI*(l.-RHOG) 

COMPUTE  AIR  DENSITY 
DA=PAO/(.287*(TAO+273.16)) 

COMPUTE  OUTSIDE  CONVECTIVE  HEAT  (W/M2  C)  AND  MASS  (KG/S  M2) 
TRANSFER  COEFFICIENTS 
S(1,1)=(B(1)  + B(2)*UAO)*GEOM(l) 

LO=HVAP(TAO) 

S(l,2)=LO*FKD(S(l,l),WAO) 

COMPUTE  LEAF  STOMATAL  RESISTANCE  (M2  S/KG) 

RS=B(8)  + B(9)/(B(10)  + ST*TAUSO*TAUSI) 


COMPUTE  OLD  HUMIDITY  RATIOS  AND  SLOPES.  CHANGE  EMITTANCES  AND 
TRANSMITTANCES  IF  NECESSARY  TO  ACCOUNT  FOR  CONDENSATE  FILMS.  REME 
THAT  IF  THE  DRY  TRANSMITTANCE  OF  A COVER  =1.0,  THEN  ASSUME 
HAVE  NO  COVER.  FIRST,  INITIALIZE  TO  DRY  VALUES. 

TRO=TDO 

TRI=TDI 

DO  70  1=1,13,2 

70  EP(I)=EP(I+1) 

GET  SATURATION  HUMIDITY  RATIOS  FOR  THE  COVERS 
S(l,6)=SHRO(PAO,GHOLD(l)) 

S(2,6)=SHRO(PAO,GHOLD(2)) 

IF(S(l,6).LT.WAO  .AND.  S(2 , 6) .LT .GHOLD(7 ) ) GOTO  75 
IF(S(l,6).LT.WAO)  GOTO  73 
IF(S(2,6).LT.GHOLD(7))  GOTO  71 

HAVE  BOTH  COVERS  DRY 
S(l,6)=WAO 
S(l,7)=0. 

S(2,6)=GHOLD(7) 

S(2,7)=0. 

GOTO  22 

HAVE  INSIDE  COVER  WET,  OUTSIDE  DRY 

71  S(l,6)=WAO 

S(l,7)=0. 

S(2,7)=SW(S(2,6),GHOLD(2)) 

TEST  FOR  NO  COVERS 

IF(TDO.EQ.  1.0  .AND.  TDI.EQ.  1.0)  GOTO  22 
IF(TDI.EQ.  1.0)  GOTO  72 ' 

HAVE  AN  INNER  COVER  AND  IT  IS  WET 
EP(7)=0.96 

EP(5)=EP(6)  + TDI*(0.96-EP(6)) 
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509  TRI=0. 

510  GOTO  22 

511  C HAVE  NO  PHYSICAL  INNER  COVER  BUT  WET  INSIDE 

512  72  EP(3)=0.96 

513  EP(1)=EP(2)  + TDO*(0.96-EP(2)) 

514  TRO=0. 

515  GOTO  22 

516  C 

517  C 

518  73 

519 

520 

521  C 

522 

523 

524  C 

525 

526 

527 

528 

529  C 

530  74 

531 

532 

533 

534  C 

535  C WET  BOTH  INSIDE  AND  OUTSIDE 

536  75  S(l,7)=SW(S(l,6),GHOLD(l)) 

537  S(2,7)=SW(S(2,6),GHOLD(2)) 

538  C TEST  FOR  NO  COVERS 

539  IF(TDO.EQ.  1.  .AND.  TDI.EQ.  1.0)  GOTO  22 

540  IF(TDI.EQ.  1.0)  GOTO  77 

541  IF(TD0.EQ.  1.0)  GOTO  76 

542  C HAVE  BOTH  COVERS  PRESENT  AND  BOTH  ARE  WET 

543  EP(1)=0.96 

544  EP(3)=EP(4)  + TD0*(0.96-EP(4)) 

545  TR0=0. 

546  EP(5)=EP(6)  + TDI*(0.96-EP(6)) 

547  EP(7)=0.96 

548  TRI=0. 

549  GOTO  22 

550  C HAVE  NO  PHYSICAL  OUTER  COVER,  BOTH  SIDES  WET 

551  76  EP(5)=0.96 

552  EP(7)=0.96 

553  TRI=0. 

554  GOTO  22 

555  C HAVE  NO  PHYSICAL  INNER  COVER,  BOTH  SIDES  WET 

556  77  EP(1)=0.96 

557  EP(3)=0.96 

558  TR0=0, 


HAVE  OUTSIDE  COVER  WET,  DRY  INSIDE 
S(l,7)=SW(S(l,6),GHOLD(l)) 

S(2,6)=GHOLD(7) 

S(2,7)=0. 

TEST  FOR  NO  COVERS 

IF(TDO.EQ.  1.0  .AND.  TDI.EQ.  1.0)  GOTO  22 
IF(TDO.EQ.  1.0)  GOTO  74 
HAVE  AND  OUTER  COVER  AND  IT  IS  WET 
EP(1)=0.96 

EP(3)=EP(4)  + TDO*(0.96-EP(4)) 

TR0=0 . 

GOTO  22 

HAVE  NO  PHYSICAL  OUTER  COVER,  BUT  WET  OUTSIDE 
EP(5)=0.96 

EP(7)=EP(8)  + TDI*(0.96-EP(8)) 

TRI=0. 

GOTO  22 
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559  C 

560  C 

561  C 

VEGETATION 

562  22 

S(3,6)=SHRO(PAO,GHOLD(3)) 

563 

S(3,7)=SW(S(3,6),GHOLD(3)) 

564 

IF(S(3,6).GE.GHOLD(7))GO  TO  66 

565 

EP(9)=0.96 

566  C 

SOIL 

567  66 

S(4,6)=SHRO(PAO,GHOLD(4)) 

568 

S(4,7)=SW(S(4,6),GHOLD(4)) 

569  C 

570 

IF(S(4,6).GE.GHOLD(7))GO  TO  67 

571 

EP(11)=0.96 

572  C 

CURTAIN  HEAT  EXCHANGER 

573  67 

S(5,6)=SHRO(PAO,GHOLD(5)) 

574 

IF(S(5,6).LT.GHOLD(7))  GO  TO  61 

575  C 

HAVE  DRY  EXCHANGER  SURFACES 

576 

S(5,6)=GHOLD(7) 

577 

S(5,7)=0 

578 

GO  TO  62 

579  C 

WET  EXCHANGER  SURFACES 

580  61 

S(5,7)=SW(S(5,6),GHOLD(5)) 

581 

EP(13)=.96 

582  C 

583  C COMPUTE  OLD  THERMAL  RADIATIONS  AND  SLOPES 

584  62 

T=GHOLD(l)  + 273.16 

585 

S(l,4)=4.*GEOM(l)*SB*T**3 

586 

S(l,3)=S(l,4)*T/4. 

587 

T=GH0LD(2)  + 273.16 

588 

S(2,4)=4.  * GE0M(1)*SB*T**3 

589 

S(2,3)=S(2,4)*T/4. 

590 

T=GHOLD(3)  + 273.16 

591 

S(3,4)=4.*GEOM(2)*SB*T**3 

592 

S(3,3)=S(3,4)*T/4. 

593 

T=GHOLD(4)  + 273.16 

594 

S(4,4)=4.*GEOM(3)*SB*T**3 

595 

S(4,3)=S(4,4)*T/4. 

596 

T=GHOLD(5)+273.16 

597 

S(5,4)=4.*GEOM(4)*SB*T**3 

598 

S(5,3)=S(5,4)*T/4. 

599  C 

600  C COMPUTE  TRANSFER  COEFFICIENTS*AREAS  (*LATENT 

601  C INNER  COVER 

602 

LI=HVAP(GHOLD(6)) 

603 

CPM=1005.  + 1859.*GHOLD(7) 

604 

DT=AB  S ( GHOLD ( 6 ) -GHOLD ( 2 ) ) 

605 

S(2,1)=B(3)*DT**B(4) 

606 

IF(GHOLD(2).GT.GHOLD(6))S(2,l)=S(2,l)/2. 

607 

IF(HPOWR.GT.S(2,l))S(2,l)=HPOWR 

608 

S(2,2)=FKD(S(2,l),GHOLD(7)) 

1982 
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609 

610 

611  C 

612 

613 

614 

615 

616 

617 

618 

619 

620 
621 

622  C 

623 

624 

625 

626 

627 

628 

629 

630  C 

631 

632 

633 

634 

635 

636 

637  C 

638 

639 

640 

641 

642 

643 

644  C 

645 

646 

647 

648  C 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658  C 


S(2,l)=S(2,l)*GEOM(l) 

S(2,2)=S(2,2)*GEOM(l)*LI 

VEGETATION 

DT*ABS(GHOLD(3)-GHOLD(6)) 

S(3,1)=B(3)*DT**B(4) 

IF(GHOLD(6).GT.GHOLD(3))S(3,l)=S(3,l)/2. 

IF(HPOWR.GT.S(3,l))S(3,l)=HPOWR 

S(3,2)=0. 

IF(S(3,1).LT.1.E-10)G0  TO  23 
S(3,2)=1./((CPM/S(3,1))  + RS) 

IF(S(3,6).LT.GHOLD(7))  S(3,2)=FKD(S(3,1) ,GHOLD(7)) 
23  S(3,l)=S(3,l)*GEOM(2) 

S(3,2)=S(3,2)*GEOM(2)*LI 
SOIL  SURFACE 

DT=AB  S ( GHOLD ( 4 ) -GHOLD ( 6 ) ) 

S(4,1)=B(3)*DT**B(4) 

IF(GHOLD(6).GE.GHOLD(4))S(4,l)=S(4,l)/2. 
IF(HP0WR.GT.S(4,1))S(4,1)=HP0WR 
S(4,2)=1./((CPM/S(4,1))  + RSOIL) 
S(4,l)=S(4,l)*GEOM(3) 

S(4,2)=S(4,2)*GEOM(3)*LI 
CURTAIN  HEAT  EXCHANGER 
DT=AB  S ( GHOLD ( 5 ) -GHOLD ( 6 ) ) 

S(5,1)=B(3)*DT**B(4) 

IF(HPOWR.GT.S(5,l))S(5,l)=HPOWR 

S(5,2)=FKD(S(5,l),GHOLD(7)) 

S(5,l)=S(5,l)*GEOM(4) 

S(5,2)=S(5,2)*GEOM(4)*LI 

INFILTRATION 

DT=SQRT(ABS(GH0LD(6)-TA0)) 

VIF=B(11)*UA0  + B(12)*DT  + B(13) 

HIF=VIF*DA*( 1.005  + 1.859*WAO) 

KDF=FKD(HIF,WAO) 

HIF=HIF*GE0M(1) 

KDF=KDF*GE0M(1)*LI 
NATURAL  VENTILATION 

VN=B(5)*UA0  + B(6)*DT  + B(7) 
HIN=(VN/3600.)*GEOM(5)*DA*(1005.  + 1859. *WAO) 
KDN=FKD(HIN,WAO)*LI 
EXTERNAL  DEVICE  SUMS 
SUMMC=0. 

SUMHX=0 . 

IF(JMAX.EQ.O)  GOTO  31 
DO  30  J=1,JMAX 

CPAX=1005.+1859.*(GHOLD(7)+WX(J))/2. 

SUMHX=SUMHX  + CPAX*TX( J)*MX( J) 

SUMMC=SUMMC  + CPAX*MX(J) 

30  CONTINUE 

31  CONTINUE 
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659  C 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670  C 

671  C 

672  C 

673 

674 

675 

676 

677 

678  C 

679  C 

680 
681 

682  C 

683 

684 

685 

686 

687  C 

688  C 

689  C 

690 

691 

692 

693 

694 

695 

696  C 

697  C 

698  C 

699 

700 

701 

702 

703  C 

704  C 

705 

706 

707 

708  C 


COMPUTE  SHORTENING  VARIABLES 

S(l,5)=S(l,3)-S(l,4)*GHOLD(l) 

S(2,5)=S(2,3)-S(2,4)*GHOLD(2) 

S(3,5)=S(3,3)-S(3,4)*GHOLD(3) 

S(4,5)=S(4,3)-S(4,4)*GHOLD(4) 

S(5,5)=S(5,3)-S(5,4)*GHOLD(5) 

S(l,8)=S(l,2)*(S(l,6)-S(l,7)*GHOLD(l)) 

S(2,8)=S(2,2)*(S(2,6)-S(2,7)*GHOLD(2)) 

S(3,8)=S(3,2)*(S(3,6)-S(3,7)*GHOLD(3)) 

S(4,8)=S(4,2)*(S(4,6)-S(4,7)*GHOLD(4)) 

S(5,8)=S(5,2)*(S(5,6)-S(5,7)*GHOLD(5)) 


STORE  EMITTANCES  IN  MORE  CONVIENT  ARRAY 
EPW(1)=EP(3) 

EPW(2)=EP(7) 

EPW(3)=EP(9) 

EPW(4)=EP(11) 

EPW(5)=EP(13) 

COMPUTE  REFLECTANCES 
RHO( 1 )=1 .-EPW( 1 )-TRO 
RHO ( 2 )=1 . -EPW( 2 ) -TRI 
EFFECTIVE  REFLECTANCE  OF  COVER 
RHO ( 2 ) =RHO ( 2 )+RHO (1)*TRI**2 
RHO(3)=l.-EPW(3) 

RH0(4)=1.-EPW(4) 

RHO(5)=l.-EPW(5) 

COMPUTE  SUMS  OF  ANGLE  FACTOR-REFLECTANCE  PRODUCTS  AND  ADD 
ANGLE  FACTORS 
DO  78  1=2,5 
DO  78  J=2,5 
V(I,J)=AF(I,J) 

DO  78  L=  2,5 

V(I,J)=V(I,J)+AF(I,L)*RHO(L)*AF(L,J) 

78  CONTINUE 


COMPUTE  UP  AND  DOWN  Y TERMS 
YD=RAO*TRO*TRI+EP ( 3 ) *TRI*S ( 1 , 5 )+EP ( 7 ) *S ( 2 , 5 ) 
YU=YD*V(2,2) 

DO  79  J=3,5 

79  YU=YU+EPW(J)*S(J,5)*V(J,2) 

COMPUTE  NET  Y RADIATION  TERMS 
ON  OUTER  COVER 

S(l,9)=EP(l)*(RAO+RGO-S(l,5)) 

S(1,9)=S(1,9)+EP(3)*(-S(1,5)+EP(5)*S(2,5)+TRI*YU 
1 +EP(3)*(1.-EP(5)-TRI)*S(1,5)) 

ON  INNER  COVER 
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709 

710 

711 

712  C 

713 

714 

715 

716 

717 

718 

719  C 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741  C 

742  C 

743  C 

744 

745  C 

746  C 

747  C 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758  C 


S(2,9)=EP(5)*((RAO+RGO)*TRO+EP(3)*S(l,5)-S(2,5)+EP(5) 
1 *RHO(l)*S(2,5)) 

S(2,9)=S(2,9)+EP(7)*(YU-S(2,5)) 

ON  VEGETATION,  SOIL  AND  EXHCNAGER 
DO  81  1=3,5 

S(I,9)=-S(I,5)+YD*V(2,I) 

DO  80  J=3,5 

80  S(I,9)=S(I,9)+EPW(J)*S(J,5)*V(J,I) 
S(I,9)=S(I,9)*EPW(I) 

81  CONTINUE 

IF(TIME.LT.FTRACE  .OR.  TIME.GT.STRACE)  GOTO  132 
WRITE(KOUT,82)(J,J=2,5),(J,J=2,5) 

82  FORMAT("  ANGLE  FACTOR  MATRIX" , 22X , "V(I ,J)  MATRIX"/ 

1 1X,"I",4X,4("J=",I1,6X),2X,4("J=",I1,6X)) 

DO  83  1=2,5 

83  WRITE (KOUT, 84)  I, (AF(I , J) , J=2 , 5) , (V(I , J) , J=2 , 5) 

84  F0RMAT(1H  , II , 4F9 . 5 , 2X, 4F9 . 5) 

WRITE(KOUT,91)(I,RHO(I) ,1=1,5) 

91  FORMAT^'  RH0",5(I4,F9.5)) 

WRITE(KOUT,92)(I,EPW(I),I=l,5) 

92  FORMAT("  EPW" , 5(14 ,F9 . 5) ) 

WRITE (KOUT, 201) (I, 1=1, 5) 

201  FORMAT("  S(I,J)  MATRIX"/1X, "J" , 4X, 5( "I=" , II , lOX) ) 

DO  202  J=l,9 

202  WRITE (KOUT, 203)  J, (S(I , J) ,1=1 ,5) 

203  F0RMAT(1H  ,I1,5E13.5) 

WRITE (KOUT, 85) YD, YU 

85  FORMATT'  YD=",E13.5,"  YU=",E13.5) 

WRITE ( KOUT , 86 ) HIF , KDF , HIN , KDN 

86  FORMATC  HIF=" ,E13 . 5 , " KDF=",E13.5, 

1 " HIN=  ",E13.5,"  KDN=",E13.5) 


CHECK  IF  THIS  IS  THE  FIRST  CALL  TO  CGRNHS  FOR  THIS  TIME  STEP 
132  IF(TIME.EQ.GHTIME)  GOTO  205 

HAVE  FIRST  CALL  FOR  THIS  TIME.  THEREFORE,  NEED  TO  RESET  GHTIME 
AND  SHIFT  OLD  SOIL  TEMPS  AND  FLUXES. 

GHTIME=TIME 
DO  122  I=2,MMAX 
II=MMAX-I+3 

TGOOLD(II)=TGOOLD(II-1) 

TGSOLD(II)=TGSOLD(II-l) 

122  CONTINUE 

TGOOLD(2)=GHOLD(4) 

TGSOLD(2)=GHOLD(8) 

DO  124  1=1,3 
124  GSOLD(I)=GS(I) 
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759  C 

760  C 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774  C 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785  C 

786  C 

787 

788 

789 

790  C 

791 

792 

793 

794 

795 

796 

797 

798 

799  C 

800 
801 
802 

803 

804 

805 

806 

807 

808 


COMPUTE  SUMS  OF  PRODUCTS  OF  SOIL  RESPONSE  FACTORS  AND  OLD  TEMPERAT 
FOR  THIS  TIME 
DO  125  1=1,3 
125  GSUM(I)=0. 

GSUM(4)=BRF(4,1) 

DO  121  I=2,MMAX 

GSUM(1)=GSUM(1)  + BRF(1,I)*TGOOLD(I)  - BRF(2,I)*TGSOLD(I) 

GSUM(2)=GSUM(2)  + BRF(2 , I)*TGOOLD(I)  - BRF(3,I)*TGSOLD(I) 

GSUM(3)=GSUM(3)  + BRF(4 ,I)*TGSOLD(I) 

GSUM(4)=GSUM(4)  + BRF(4,I) 

121  CONTINUE 

GSUM(1)=GSUM(1)*GE0M(3)  + BR*GSOLD(l) 

GSUM(2)=GSUM(2)*GEOM(3)  + BR*GSOLD(2) 

GSUM( 3 ) =GSUM( 3 ) *GEOM( 3 ) 

GSUM( 4 )=GSUM( 4 )*GEOM( 3 )*TD 

IF(TIME.LT.FTRACE  .OR.  TIME.GT.STRACE)  GOTO  205 
WRITE (KOUT, 131) 

131  FORMAT(”  M",3X,"TGOOLD”,3X,”TGSOLD”) 

DO  127  I=1,MMAX 

127  WRITE (KOUT, 128)  I ,TGOOLD(I) ,TGSOLD(I) 

128  F0RMAT(1H  ,I2,2F9.4) 

WRITE (KOUT , 1 30 ) ( I , GSOLD( I ) , 1=1 , 3 ) 

130  FORMATC*  GS0LD*’,2X,3(I3,E13.5)) 

WRITE(KOUT,129)(I,GSUMU),I=l,^) 

129  FORMATC*  GSUM’*,3X,4(I3,E13.5)) 

FILL  IN  THE  ELEMENTS  OF  THE  A MATRIX 
205  DO  24  1=1,8 
DO  24  J=l,9 
24  A(I,J)=0. 

OUTER  COVER 

A(1,1)=-S(1,4)*EP(1)  + S(1,4)*EP(3)*(-1.+EP(3)*(TRI**2)*V(2,2) 

1 + (l.-EP(5)-TRI)) 

A(1,1)=A(1,1)  - UC  - S(l,l)  - S(1,2)*S(1,7) 
A(1,2)=S(2,4)*EP(3)*(EP(5)  + TRI*EP(7)*V(2,2))  + UC 
A(1,3)=S(3,4)*EPW(3)*EPW(1)*TRI*V(3,2) 
A(1,4)=S(4,4)*EPW(4)*EPW(1)*TRI*V(4,2) 
A(1,5)=S(5,4)*EPW(5)*EPW(1)*TRI*V(5,2) 

A(l,9)=  -SCO  -S(l,9)  - S(1,1)*TA0  + S(l,8)  - S(1,2)*WA0 
INNER  COVER 

A(2,1)=S(1,4)*EP(3)*(EP(5)  + EP(7)*TRI*V(2,2))  + UC 
A(2,2)=S(2,4)*EP(5)*(-1.  + EP(5)*RH0(1))  + S(2,4)*EP(7)* 

1 (-1.  + EP(7)*V(2,2)) 

A(2,2)=A(2,2)  - UC  - S(2,l)  - S(2,2)*S(2,7)-MXC 

A(2,6)=S(2,1) 

A(2,7)=S(2,2) 

A(2,3)=S(3,4)*EPW(3)*EPW(2)*V(3,2) 

A(2,4)=S(4,4)*EPW(4)*EPW(2)*V(4,2) 

A(2,5)=S(5,4)*EPW(5)*EPW(2)*V(5;2) 
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809  A(2,9)=  -SCI  -S(2,9)  + S(2,8)  -MXC*TXC 

810  C GREENHOUSE  AIR  ENTHALPY  BALANCE 

811  A(6,2)=S(2,1)  + S(2,2)*S(2,7) 

812  A(6,6)=-S(5,l)  - S(4,l)  - S(3,l)  - S(2,l)  - HIF  - HIN  - SUMMC 

813  A(6,7)=-S(5,2)  - S(4,2)  - S(3,2)  - S(2,2)  - KDF  - KDN  - LI*SUMMX 

814  A(6,3)=S(3,1)  + S(3,2)*S(3,7) 

815  A(6,4)=S(4,1)+S(4,2)*S(4,7) 

816  A(6,5)=S(5,1)+S(5,2)*S(5,7) 

817  A(6,9)=  -S(5,8)  - S(4,8)  - S(3,8)  - S(2,8) 

818  A(6,9)=A(6,9)  - HIF*TAO  - KDF*WAO  - HIN*TAO  - KDN*WA0 

819  A(6,9)=A(6,9)  - SUMHX  - LI*SUMEX-XR*(1 .-FR) 

820  C GREENHOUSE  AIR  MOISTURE  BALANCE 

821  A(7,2)=S(2,2)*S(2,7) 

822  A(7,7)=A(6,7) 

823  A(7,3)=S(3,2)*S(3,7) 

824  A(7,4)=S(4,2)*S(4,7) 

825  A(7,5)=S(5,2)*S(5,7) 

826  A(7,9)=-S(5,8)-S(4,8)-S(3,8)-S(2,8)-KDF*WAO  - KDN*WAO  - LI*SUMEX 

827  C VEGETATION 

828  A(3,1)=EP(9)*EP(3)*TRI*S(1,4)*V(2,3) 

829  A(3,2)=V(2,3)*EP(9)*S(2,4)*EP(7) 

830  A(3,6)=S(3,1) 

831  A(3,7)=S(3,2) 

832  A(3,3)=S(3,4)*EPW(3)*(-1.  + EPW(3)*V(3,3))-S(3,1)-S(3,2)*S(3,7) 

833  A(3,4)=EPW(4)*V(4,3)*S(4,4)*EP(9) 

834  A(3,5)=EPW(5)*V(5,3)*EP(9)*S(5,4) 

835  A(3,9)=  -SV  -8(3,9)  +S(3,8)-XR*FR*GEOM(12)/GEOM(3) 

836  C 

837  C SOIL  SURFACE 

838  A(4,1)=EP(11)*EP(3)*S(1,4)*V(2,4)*TRI 

839  A(4,2)=EP(11)*EP(7)*S(2,4)*V(2,4) 

840  A(4,6)=S(4,1) 

841  A(4,7)=S(4,2) 

842  A(4,3)=EPW(3)*V(3,4)*EP(11)*S(3,4) 

843  A(4,4)=-S(4,1)-S(4,2)*S(4,7)+S(4,4)*EPW(4)*(-1.+EPW(4)*V(4,4)) 

844  a(4,4)=A(4,4)  - GEOM(3)*BRFh  , 1) 

845  A(4,5)=EPW(5)*V(5,4)*EP(11)*S(5,4) 

846  A(4,8)=BRF(2,l)*GEOM(3) 

847  A( 4 , 9 )=-SG-S ( 4 , 9 )+S ( 4 , 8 )+GSUM( 1 )-XR*FR* ( GEOM( 3 )-GEOM( 12)) /GEOM( 3 ) 

848  C 

849  C CURTAIN  HEAT  EXCHANGER 

850  A(5,1)=EP(13)*EP(3)*TRI*S(1,4)*V(2,5) 

851  A(5,2)=V(2,5)*EP(13)*S(2,4)*EP(7) 

852  A(5,3)=EPW(3)*V(3,5)*EP(13)*S(3,4) 

853  A(5,4)=EPW(4)*V(4,5)*EP(13)*S(4,4) 

854  A(5,5)=  S(5,4)*EPW(5)*(-1.  + EPW(5)*V(5,5)) 

855  1 -S(5,1)-S(5,2)*S(5,7)-MXE 

856  A(5,6)=S(5,1) 

857  A(5,7)=S(5,2) 

858  A(5,9)=  -S(5,9)  + S(5,8)  -MXE*TXE 


284 


PAGE  19 


CGH 


OPTS ; LYI 


10:57  AM  TUE.,  30  NOV.,  1982 


859  C 

860  C 

861 
862 

863 

864  C 

865 

866 

867 

868 

869 

870 

871  C 

872  C 

873  C 

874  C 

875  C 

876  C 

877 

878  C 

879 

880 
881 
882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905  C 

906  C 

907 

908 


SOIL  STORAGE  DEPTH 
A(8,4)=GEOM(3)*BRF(2,l) 

A(8,8)=  -GEOM(3)*(BRF(3,l)+BRF(4,l))  - MXG 
A(8,9)=  -GSUM(2)  + GSUM(3)  - GSUM(4)  - MXG*TXG 

IF(TIME.LT.FTRACE  .OR.  TIME . GT . S TRACE ) GOTO  209 
WRITE (KOUT, 206) 

206  FORMATC  A(I,J)  MATRIX’VlX,  "J" , 3X, 4( "I" , 15X) ) 

DO  207  J=l,9 

207  WRITE (KOUT, 208)  J,(I,A(I,J) ,1=1,8) 

208  F0RMAT(1H  ,I1,4(I4,E12.5)/2X,4(I4,E12.5)) 

SOLVE  FOR  UPDATED  VALUES  OF  THE  SEVEN  UNKNOWNS 
USE  TRIANGULARIZATION  WITH  BACK  SUBSTITUTION 
SEE  CROUT'S  METHOD  IN  C.  FROBERG,  1965, 
INTRODUCTION  TO  NUMERICAL  ANAYSIS, 

ADDISON-WESLEY  PUB.  CO.,  READING,  MASS.  PP78-81 

209  19=8 

TRIANGULARIZE 
DO  104  15=1,  19 
DO  105  16=15,  19 
L8=I5-1 

IF  (L8-1)  105,  106,  106 

106  DO  107  1=1,  L8 
A(I6,I5)=A(I6,I5)  - A(I6,I)*A(I,I5) 

107  CONTINUE 
105  CONTINUE 

L9=I5  + 1 
M1=I9  + 1 
DO  104  K5=L9,M1 
M2=I5-1 

IF(M2.EQ.0)  GOTO  111 
DO  109  K6=1,M2 

A(I5,K5)=A(I5,K5)  - A(I5,K6)*A(K6,K5) 

109  CONTINUE 

111  IF(ABS(A(I5,I5)).GT.  1.E-20)  GOTO  112 
IF(ABS(A(I5,K5)).LT.  l.E-10)  GOTO  113 
WRITE(K0UT,114)I5,I5,A(I5,I5),I5,K5,A(I5,K5) 

114  FORMATC"  **WARNING  - NEAR  ZERO  DENOMINATOR  IN  CGH"/ 

1 "A(",I2,",",I2,")=",E14.6/ 

2 "A(",I2,",",I2,")=",E14.6) 

113  A(I5,K5)=0. 

GOTO  104 

112  A(I5,K5)=A(I5,K5)/A(I5,I5) 

104  CONTINUE 

BACK  SUBSTITUTE 
M3=I9-1 
M4=I9+1 
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909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 


DO  110  15=1, M3 
L9=(M3+1)  - 15 
L8=L9+1 

DO  110  I=L8,I9 

A(L9,M4)=A(L9,M4)  - A(L9,I)*A(I,M4) 

110  CONTINUE 
C 

C DECODE 

DO  25  1=1,8 
GH(I)=A(I,9) 

25  CONTINUE 
C 
C 

C ***  OUTPUTS  *** 

C 

C OUTER  COVER  TEMP  (C) 

OUTI(l)=GH(l) 

C 

C INNER  COVER  TEMP  (C) 

OUTI(2)»GH(2) 

C 

C VEGETATION  TEMP  (C) 

OUTI(3)=GH(3) 

C 

C SOIL  SURFACE  TEMP  (C) 

OUTI(4)«GH(4) 

C 

C CURTAIN  HEAT  EXCHANGER  TEMP(C) 

OUTI(5)=GH(5) 

C 

C INSIDE  AIR  TEMP  (C) 

OUTI(6)=GH(6) 

C 

C INSIDE  AIR  HUMIDITY  RATIO  (KG/KG) 

OUTI(7)=GH(7) 

C 

C 

C SOIL  STORAGE  TEMP  (C) 

OUTI(8)=GH(8) 

C SOLAR  RADIATION  ABSORBED  BY  OUTER  COVER  (W) 

OUTI(9)=SCO 
C 

C SOLAR  ABSORBED  BY  INNER  COVER(W) 

0UTI(10)=SCI 

C SOLAR  RADIATION  ABSORBED  BY  VEGETATION  (W) 

OUTI(ll)=SV 
C 

C SOLAR  RADIATION  ABSORBED  BY  SOIL  (W) 

OUTI(12)=SG 
C 
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959  C 

960  C 

961  C 

NET  THERMAL  RADIATION 

962  C 

FIRST  UPDATE  BLACK  BODY  VALUES 

963 

DO  87  1=1,5 

96A 

J=I-1 

965 

IF(I.EQ.1)J=1 

966  C 

967  87 

S(I,3)=(SB*(GH(I)+273.16)**4)*GEOM(J) 

968  C 

COMPUTE  UP  AND  DOWN  RADIATION 

969 

YD=RAO*TRO*TRH-EPW(  1 ) *TRI*S  ( 1 , 3 )+EPW(  2 ) *S  ( 2 , 3 ) 

970 

YU=YD*V(2,2) 

971 

DO  88  J=3,5 

972  88 

YU=YU  + EPW(J)*S(J,3)*V(J,2) 

973  C 

OUTER  COVER 

974 

OUT I ( 1 3 ) =EP ( 1 ) * ( RAO+RGO-S ( 1 , 3 ) ) 

975 

OUTI(13)=OUTia3)+EP(3)*(-S(l,3)+EP(5)*S(2 

,3)+TRI*YU 

976 

1 +EP(3)*(l.-EP(5)-TRI)*sa,3)) 

977  C 

INNER  COVER 

978 

OUTI(14)=EP(5)*((RAO+RGO)*TRO  + EP(3)*S(1, 

3)-S(2,3) 

979 

1 +EP(5)*RHO(l)*S(2,3)) 

980 

OUTI(14)=OUTia4)+EP(7)*(YU-S(2,3)) 

981  C 

VEGETATION,  SOIL,  AND  EXCHANGER 

982 

DO  89  1=3,5 

983 

L=I+12 

984 

OUTI(L)=-S(I,3)  +YD*V(2,I) 

985 

DO  90  J=3,5 

986  90 

OUTI(L)=OUTI(L)  + EPW(J)*S(J,3)*V(J,I) 

i 987 

OUTI(L)=OUTI(L)*EPW(I) 

988  89 

CONTINUE 

989  C 

UPDATE  HUMIDITY  RATIOS 

990 

DO  32  1=1,5 

991  32 

S(I,6)=S(I,6)  + S(I,7)*(GH(I)-GHOLD(I)) 

' 992  C 

993  C 

SENSIBLE  AND  LATENT  HEAT  FROM  OUTER  COVER  (W) 

994 

OUTI(18)=S(l,l)*(GH(l)-TAO) 

995 

OUTI(19)=S(l,2)*(S(l,6)-WAO) 

996  C 

997  C 

SENSIBLE  AND  LATENT  HEAT  TO  INNER 

COVER  (W) 

998 

OUTI(20)=S(2,1)*(GH(6)-GH(2)) 

999 

OUTI(21)=S(2,2)*(GH(7)-S(2,6)) 

i 1000  C 

, 1001  C 

SENSIBLE  AND  LATENT  HEAT  FROM  VEGETATION  TO  AIR  (W) 

’ 1002 

OUTI(22)=S(3,l)*(GH(3)-GH(6)) 

1003 

OUTI(23)=S(3,2)*(S(3,6)-GH(7)) 

! 1004  C 

; 1005  C 

SENSIBLE  AND  LATENT  HEAT  FROM  SOIL  TO  AIR  (W) 

1006 

OUTI(24)=S(4,l)*(GH(4)-GH(6)) 

; 1007 

OUTI(25)=S(4,2)*(S(4,6)-GH(7)) 

1 1008  C 
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1009  C 

1010 
1011 

1012  C 

1013  C 

1014 

1015 

1016  C 

1017  C 

1018  C 

1019 

1020 

1021  C 

1022  C 

1023 

1024  C 

1025  C 

1026 

1027  C 

1028  C 

1029 

1030  C 

1031  C 

1032 

1033  C 

1034  C 

1035  C 

1036 

1037 

1038 

1039  C 

1040  C 

1041  C 

1042 

1043 

1044 

1045  C 

1046  C 

1047  C 

1048 

1049 

1050 

1051  C 

1052  C 

1053 

1054  C 

1055  C 

1056 

1057 

1058 


SENSIBLE  AND  LATENT  HEAT  FROM  CURTAIN  HEAT  EXCHANGER  TO  AIR 
OUTI(26)=S(5,l)*(GH(5)-GH(6)) 

OUTI(27)=S(5,2)*(S(5,6)-GH(7)) 

SENSIBLE  AND  LATENT  HEAT  FROM  INSIDE  AIR  TO  OUTSIDE  AIR 
DUE  TO  INFILTRATION  (W) 

OUTI(28)=HIF*(GH(6)-TAO) 

OUTI(29)=KDF*(GH(7)-WAO) 

SENSIBLE  AND  LATENT  HEAT  FROM  INSIDE  TO  OUTSIDE  DUE 
TO  NATURAL  VENTILATION  THROUGH  VENTILATORS 
OUTI(30)=HIN*(GH(6)-TAO) 

OUTI(31)=KDN*(GH(7)-WAO) 

CONDUCTION  FROM  INNER  TO  OUTER  COVER  (W) 
OUTI(32)=UC*(GH(2)-GH(l)) 

SURFACE  SOIL  HEAT  FLUX  (W) 

OUTI(33)=GEOM(3)*(BRF(l,l)*GH(4)  - BRF(2,1)*GH(8))  + GSUM(l) 

SOIL  HEAT  FLUX  LEAVING  BOTTOM  OF  UPPER  LAYER  (W) 
OUTI(34)=GEOM(3)*(BRF(2,l)*GH(4)  - BRF(3,1)*GH(8))  + GSUM(2) 

SOIL  HEAT  FLUX  ENTERING  TOP  OF  BOTTOM  SEMI-INFINITE  REGION(W) 
OUTI(35)=GEOM(3)*BRF(4,l)*GH(8)  + GSUM(3)  - GSUM(4) 

SENSIBLE  HEAT  ADDED  TO  COVER  FROM  EXTERNAL  DEVICE(W) 

FLUID  EXIT  TEMP(C),  AND  FLOW  RATE(KG/S) 

OUT I ( 3 7 ) =MXC* ( TXC-GH ( 2 ) ) 

OUTI(38)=GH(2)-(TXC-GH(2)) 

OUTI(39)=XIN(17) 

SENSIBLE  HEAT  ADDED  TO  SOIL  STORAGE  FROM  EXTERNAL  DEVICE(W) 

FLUID  EXIT  TEMP(C),  AND  FLOW  RATE(KG/S) 

OUT 1(40) =MXG* ( TXG-GH ( 8 ) ) 

OUTI(41)=GH(8)-(TXG-GH(8)) 

OUTI(42)=XIN(19) 

SENSIBLE  HEAT  ADDED.  TO  CURTAIN  HEAT  EXCHANGER  FORM  EXTERNAL  DEVICE 

FLUID  EXIT  TEMP(C)  AND  FLOW  RATE(KG/S) 

OUTI(43)=MXE*(TXE-GH(5)) 

OUTI(44)=GH(5)-(TXE-GH(5)) 

OUTI(45)=XIN(21) 

ENERGY  OUTPUT  FROM  INFRARED  HEATER(W) 

OUTI(46)=XR 

SENSIBLE  AND  LATENT  HEAT  ADDED  TO  GREENHOUSE  AIR  BY  EXTERNAL  DEVIC 
IF(JMAX.EQ.O)  GOTO  18 
DO  18  J=1,JMAX 
JO=47  + (J-l)*3 
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OPTS ; LYI 


10:57  AM  TUE.,  30  NOV.,  1982 


PAGE  23  CGH 


1059 

OUTI(JOH-2)=MX(J)*LI*(WX(J)-GH(7)) 

1060 

OUTI(JO+l)=MX(J) 

1061 

OUTI(JO)=MX(J)*(TX(J)-GH(6))*(1005.+1859.*(GH(7)+WX(J))/2.) 

1062 

18 

CONTINUE 

1063  C 

1064  C 

1065  C 

OVERALL  COEFFICIENT  OF  HEAT  TRANSMISSION  - U (W/M2/C) 

1066 

OUTI(36)=-l 

1067 

IF(ABS(GH(6)  - TAO)  .LT.  .1)  GOTO  17 

1068 

OUTI(36)=SV+SG-OUTI(33)-OUTI(30)-OUTI(31)+OUTI(37)+OUTI(43)+XR 

1069 

IF(JMAX.EQ.O)  GOTO  19 

1070 

DO  19  J=1,JMAX 

1071 

JO=47  + (J-l)*3 

1072 

OUTI(36)=OUTI(36)  + OUTI(JO)  + OUTI(JO+2) 

1073 

19 

CONTINUE 

1074 

OUTI(36)=OUTI(36)/(GEOM(l)*(GH(6)-TAO)) 

1075 

17 

CONTINUE 

1076  C 

1077  C 

UPDATE  OLD  VALUES  AND  STORE  IN  COMMON 

1078 

DO  63  1=1,8 

1079 

63 

GHOLD(I)=GH(I) 

1080 

GS(l)=OUTI(33) 

1081 

GS(2)=OUTI(34) 

1082 

GS(3)=OUTI(35) 

1083  C 

1084 

RETURN 

1085 

END 
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MODULAR  ENERGY  BALANCE  MODEL  INPUT  DATA  (MEBDI) 


RUN  TITLED 
WEATHER  FILE: 


OUTPUT  FILE: 

STARTING  TIME  TIME  NO.  FIRST  LAST 

YR(2)  MON  DAY  HR(.)  INCRE  TIMES  TRACE  TRACE 

1 « 9 9 9 9 • 

NO.  UNITS  : 


UNIT  \ I 2 3 4 5 6 7 8 9 10  II  12  13  14 


TYPE 

PAR 

I IN 

7 17  7 1 

OUT 

T 

TYPE 

PAR 

2 IN 

% 7 ««««« 

OUT 

11  1 11  1 1 11  1 1 1 1 

T 

TYPE 

t 

PAR 

1111111111111 

3 

««««««««  •«««« 

OUT 

T 

TYPE 

7 

PAR 

ft 

4 IN 

7 7 7 7 7 7 «««««%««««•• 

OUT 

7 7 7 1111111111 

T 

444«4«  ««  •• 

TYPE 

PAR 

«««««*  ««  •« 

n IN 

««444«  ««•«««««• 

OUT 

f f 7 f f 9 99  9 9 9 99 

T 

TYPE 

1 

FAR 

6 'N 

444444  44  444444444 

^ OUT 

44  444444444  44 

T 

TYPE 

f 

PAR 

~7  IN 

* «««««  ««  ••  •••>> 

OUT 

444  444  4444444 

T 

9 i 9 9 9 9 9 9 9 9 9 9 9 

Form  for  units  1 through  7 of  file  MEBDI. 
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MEB  MODEL  INPUT  DATA  - CONTINUED 


UNIT  I 2 3456789  10  II  12  13  14 


TYPE 

PAR 

t I t t* 

R IN 

% n % n ^ % % % 44  44444444444444  44  4 

OUT 

tttttttttt*** 

T 

TYPE 

4 

PAR 

ttttttttt  t1  tt 

R IN 

OUT 

T 

444  444444  44  44 

TYPE 

4 

• ^ PAR 

• 44444444  44  44 

lO  IN 

4 44444  44444444  44444444  44444 

OUT 

T 

444  ««444«  ««  «• 

TYPE 

4 

PAR 

tt  ttttttt  tt  tt 

1 1 

4 44444  444444444444  44444  444  4 

OUT 

444  4444444444 

T 

TYPE 

9 

PAR 

I2  'N 

944444  44444444««a«««««««««« 

^ OUT 

9 9 9 9 9 9 9 9 9 9 9 9 9 

T 

4444«<«««  «•  •• 

TYPE 

4 

PAR 

4)9  994944  4444 

I3  'N 

«444444444  444444  44  444444444 

OUT 

44  444444444  44 

T 

4444444444444 

TYPE 

7 

PAR 

999999999  9999 

4 44  444  4444444  44444  44  44  44444 

^ OUT 

999  9’99  99999  99 

T 

TYPE 

PAR 

• • ••  •••••  •••  • 

R IN 

• ••••••••••••••••••••••  •••• 

OUT 

9999999991999 

T 

TYPE 

• 

PAR 

• ••••••••  •••• 

I6  'N 

44  44  444444  444444  44  44444  44  44 

^ OUT 

999  999999  99  99 

T 

1 9 9 9 9 9 9 9 9 9 9 9 9 9 

PRINTER:  b b b b b b b b b b b b b b— 

LABELS;  b b b b b b b b b b b b b b — 


Form  for  units  8 through  16  of  file  MEBDI. 
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MEB  MODEL  INPUT  DATA  - CONTINUED 


UNIT  I 23456789  10  H 12  13 14 


TYPE 

PAR 

««  ««  •• 

IN 

OUT 

T 

1111111  11  1 1 9 1 

TYPE 

• 

PAR 

IN 

OUT 

«««« 

T 

TYPE 

• 

PAR 

f 

99 

IN 

• ««  «•««« 

OUT 

til  11  11 

T 

44  44 

TYPE 

1 

PAR 

«««««««««  %« 

IN 

OUT 

T 

TYPE 

« 

PAR 

%^%  %%%%%% 

IN 

444444  44444444444444444  4444 

OUT 

T 

TYPE 

} 

PAR 

% % % %%%%%%  % % % % 

IN 

««  ««««««««« 

OUT 

44  4444444  44  44 

T 

TYPE 

1 

PAR 

111111111  1111 

IN 

4 44  444  4444444  44444  44  44  44444 

OUT 

444  4-44  44444  44 

T 

TYPE 

PAR 

44  44  44444  444  4 

IN 

44444444444444*44444444  4444 

OUT 

111  111111  11 

T 

444  444444  44  44 

TYPE 

% 

PAR 

111111111  1111 

IN 

44  44  444444  444444  44  44444  44  44 

OUT 

111  111111  '' 

T 

9 9 9 9 9 9 9 9 9 9 9 9 9 

PRINTER:  b b b b b b b b b b b b b b 

LABELS:  b b b b b b b b b b b b b b 


Blank  form  for  file  MEBDI. 
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TYPE  5 GREENHOUSE 


UNIT  No.: 

PARAMETERS 

- 1 2 

3 4 5 6 7 8 

9 10 

II  12  13 

14  15  16 

Np  J 

M n Aq  Ag  Ay^  Vgj 

^xc  ^xg 

P b,  b. 

r^g  1 2 

Uw  1$  00  01 

17  ^ 18  ’ 

19  * 20  ^ 21  ’ 22  * 23  ' 24 

^ 25  * 26 

^ 27  ' 28  ' 29  * 

30  ’ 31  * 32 

10  II 

®soo®soi  ®s  10  ®s  II  ^’oi  0 *^011 

hf  0 hf  1 

bco  0 bco  1 bgj  0 

bci  1 b3  0 bj  1 

33  ' 34  ' 

^4  0 ^4  1 

35  ^ 36  ^ 37  ' 38  ’ 39  ’ 40 

^5  00  ^5  01  ^5  10  *^5  11  ^7 

’ 41  * 42 

be  0 bg  I 

^ 43  ’ 44  » 45  » 

1 bg  b,o  b|, 

46  ’ 47  ^ 48 

b|2  b|3  Tg 

49  ' 50  ' 

51  * 52  ' 53  ' 54  ' 55  ' 56 

* 57  ' 58 

* 59  * 60  * 61  ' 

62  ’ 63  ’ 64 

Tb  kfl 

k|  l<2  Ca2  1^3  C43 

^4  Ca4 

ks  Ca5  kg 

Ca6  k7  Ca7 

INPuts  ^ 


U 


ao 


00 


'00 


W, 


00 


6 

L 


7 

rf 


1 1 


'xc 


-» — r 


-r—y- 

13 

Txg 


—t — »- 

14 

Mxg 


15 

Tx. 


8 

rc 


—t- 

16 

M 


10 


12 

M 


xc 


-) r 

22 

Mx3 


7 7 

23 

Wx3 


XI 


24 


17 

Wxi 


18 

Tx2 


19 

Mx2 


20 

Wx2 


21 

Tx3 


INlri/iL  OUTF^uVs  GUE 

I 2 3 


7 T* 


T-T 


'01 


W, 


01 


INITIAL  s6iL  temperatures 


4 THROUGH  22  + M+(3»J) 
USUALLY  ALL  I’s  SEPARATED  BY  COMMAS 


8 


10  II 


12  13  14  15 


16 


Tg,  Tgg  Tgj  Tg^  Tgj  Tgg  Tg^,  Tgg  Tgg  Tg,Q  Tg„  Tgjg  Tg,3  Tg,^  Tg,g  T( 


Ql6 


Form  for  type  5 greenhouse  input  data. 
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TYPE  14  COMPLICATED  GREENHOUSE  DATA 


Unit  No: 


Parameters 


2 


3 

A 


g ''ai 


5 

I 


6 

s 


7 

Ne 


8 

9 

10 

11 

12 

13  14 

15 

16 

^9 

s 

^c  ^xc 

°xe 

17  ’ 18  ’ 19  ’ 20  ’ 21  ’ 22  ^ 23  ’ 24  ’ 25  ’ 26  ’ 27  ’ 28  ’ 29  ^ 30  ^ 31  ’ 32 

bi  b 


*^4  *^5 


bg  bg  b^Q  fg  hp^  Xp^  f ^scoO  ’^scol 


-1  Ug 

33  ’ 34  ’ 35  ’ 36  ’ 37  ’ 38  ’ 39  ’ 40  ’ 41  ’ 42  ’ 43  ’ 44  ^ 45  ’ 46  ^ 47  ^ 48 

’’Sci — “SCO — ► “Sci U 


00  01 


10  11 


-'"Sco- 
0 1 


00  01 


"Sci- 

10 


11  00  01  10  11 


— ^Rco— 
0 1 


49  ^ 50  ^ 51  ’ 52  ’ 53  ’ 54  ’ 55  ’ 56  ’ 57  ’ 58  ^ 59  ^ 60  ^ 61  ’ 62  ’ 63  ’ 64 


Rci- 


00  01  10  11 


— coo— 
0 1 


coi 


CIO- 


CM- 


1 00  01  10  11  00  01  10  11 

? > » y 


65  ' 

66  ’ 67  ’ 

u 

68 

69 

70  71  ’ 

72  ’ 

73  ’ 

74  ’ 75  ’ 

76 

00 

°11 

01  10 

11 

00 

o 

CM 

o 

11 

00 

°13 

01  10 

11 

Inputs 


1 

So 

2 

ao 

3 

^ao 

4 

^ao 

5 

^ao 

6 

ao 

7 

y 

8 

w 

^0  ’ 

l’l  ’ 

1*2  ’ 

1*3  * 

1*4  ’ 

1*5  * 

1*6 

>co 

^ci 

>N 

^e 

>R 

Txc 

iV  ’ 

1^8  ’ 

l’9  ’ 

2b  ’ 

2*1  * 

2*2  ’ 

2*3  * 

2*4 

Mxc 

Txg 

Mxg 

Txe 

Mxe 

Tx1 

Mxl 

Wx1 

2’5  ’ 

2*7  ’ 

2*8  ’ 

2*9  * 

3*0  * 

j f 

9 

Tx2 

Mx2 

Wx2 

TxO 

Mx3 

Wx3 

-> — r- 


-r — y- 


Initial  Output  Guesses 


-y — y- 


-> — y- 


-y — r 


-y y- 


-> — r 


1 2 3 4 5 6 7 8 

Tco  Tci  Tv  Tgo  Te  Tai  Wai  Tgs 


9 through  46+3*J  are  usually  all  1’s 
separated  by  comma-blank 


Continue  on  form  for  surface  layer  soil  heat  conduction  transfer  functions 


!j  Form  for  type  14  complicated  greenhouse  input  data. 
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TYPE  14  COMPLICATED  GREENHOUSE  DATA -Continued 


Soil  Heat  Conduction  Transfer  Functions  and  Temperature  History 

M ”0,to-1  so,to*1  Upper  Slab  Description 


B,  B4I  Lower  Semi-infinite  Description 


®1m  ®2m  ®3m  ^go,to-m+1  ^gs,to-m+1 

1 

» » » » » » 

2 

1 » 9 9 9 9 

3 

9 9 9 9 9 9 

4 

9 9 9 9 9 9 

5 

9 9 9 9 9 9 

6 

9 9 9 9 9 9 

7 

9 9 9 9 9 9 

8 

9 9 9 9 9 9 

9 

9 9 9 9 9 9 

10 

9 9 9 9 9 9 

11 

f f y f , 

12 

9 9 9 9 9 9 

13 

9 9 9 9 9 9 

14 

9 9 9 9 9 9 

15 

9 9 9 9 9 9 

16 

9 9 9 9 9 9 

17 

9 9 9 9 9 9 

18 

9 9 9 9 9 9 

19 

9 9 9 9 9 9 

20 

9 9 9 — 9 9 9 

21 

9 9 9 9 9 9 

22 

9 9 9 9 9 9 

23 

9 9 9 9 9 9 

24 

9 9 9 9 9 9 

Not  used 


Form  for  soil  heat  conduction  transfer  functions  and 
temperature  history  of  type  14  complicated  greenhouse. 


TYPE  15  SIMPLE  GREENHOUSE  DATA 


UNIT  No.; 

PARAMETERS 

I 2 

3 

4 5 

6 

7 

8 

9 

10 

II 

12  13  14 

15 

16 

J Ag 

Ag 

vai  fx 

o 

CM 

.O 

o 

to 

.o 

b2 

1 bs  1 

Umox 

V 

'’vg  0 ‘’0  0 

b|  0 

Is, 

00 

1 ? 

1 ^ 

r 

7^ 

i 

5 7 

7 

7 

7 7 7 

7 

inputs 

I 

2 

3 

4 

5 

6 

7 

8 

So 

Uqo 

Poo 

Tao 

Ttfb 

>^0 

’p 

9*  * 

lb  ’ 

I’l  * 

ik  * 

1^  * 

lb  * 

ife  * 

Tx. 

Mxi 

Tx2 

Mx2 

Tx3 

Mx3 

Tx4 

Mx4 

INITIAL  OUTPUT'  GUESSES' 

‘ 

I 2 

3 

4 5 

6 

Toi  Si 

2Xj 

C Vg 

V 



2 

THROUGH  6 

CAN 

USUALLY  BE  I’s 

Form  for  type  15  simple  greenhouse  input  data. 
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Appendix  E:  Jndividuai  device  codes 


■•.  -:»  i.-4.,«i  v;-' 


, ::Vi-.jrA  A.,,., , 

- -'■■  ■J:"^  . '-  ■■^;  •• 

/t.AS.  4- •■-  ■•.»-v»|y.  tl.,<f».AlI^'?' 


■ . .-JL . 


A'‘  ^ r .,  _.  . ,i^‘  ^ 


<■< ' „ ■ ;■*  , .T  ■ ' ,4 

.-I'  ...  .y  .. 


,» , ■”  ■ ^^IfeSi-Sife- 

'fm,^:!'  ■ ^..■4^0^<d,-,.,t4iiM>V 

«>•:’''«■'"  . 

.....  -.4^4—*. 

_ .V 


; t 


'M 

^ tL 


0.4 

4J.. 


’ . 4 ..4:.:- 

■■  •' 

■'  • ii'  "•■ 

'"■  " . ' S • 

-■ij—ii' wi 

H *a  '■  . 

^vLiiol 

'■  'h  ^ 

■'  , / -,4-  ^ ' ■ 

*'  ..V  . _ ... 

1;  !.  „ 

— .V  , 'ii^'TV- 

'■'’/A.' 

-.-=4-#'W-  ’"'j 

*■  ■ ..•.  - >f,‘ 

««. 

» v'T.  » 


«v 


■a 


’?■'  '-»!•'■ 


li  .. 

”*  >1 .?»’ '- 


>«» 


t-.  ' ' -'.  , . V'>'’4-  ■.'  .*^  -.  .i  ■■  ,.  4 . . ' ^ ^ 4 ^ 

l^ti.^  '■  :>;?,  V-vr  ?,C^'  Vf  , ><  /-  yv!;  ^ ; 

ui'::'  ■ ' ' 


ll.-''.44'' 


■ ''''^  i''?sa^/ 
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.„..■  M ' 

■-■-V ' 


4aii^ 


,Vj  . 


S ' • 4 ■’?•'  ' 

puV 

*3  • ■ -■  S; 

. •'  ^r'  JAL 

U- . - a:  ' i’’  ■ .,■■■ 

- *’■  -a  ■•  ;,  u.-  • .. 

T ji-  •*'  ■■  -■,  •«■  '■ 

; , ■ -JAM  6-  -•-.-■■•'K.  . , -■■ 


y ■ ^ ■,')i 


if! 


" SM* 


Type  1 Reader  (READR) 


PARAMETERS  - 0 
INPUTS  - 0 
OUTPUTS  - 23 
DERIVATIVES  - 0 

Test 


No. 

Item 

Values!./ 

OUTPUTS : 

1. 

Year  (last  two  digits) 

78 

2. 

Month 

3 

3. 

Day 

7 

4. 

Hour  (can  use  fractional  hours) 

0.0 

5. 

Dew  point  (*C) 

10.5 

6. 

Humidity  ratio  (kg  H20/kg  air) 

0.00818 

7. 

Uindspeed  (m/s) 

2.51 

8. 

Station  pressure  (kPa) 

97.91 

9. 

Dry  bulb  temperature  (*C) 

12.9 

10. 

Wet  bulb  temperature  (*C) 

11.5 

11. 

Relative  humidity  (%) 

85 

12. 

Total  solar  radiation  on  horizontal  surface  (W/m^) 

0 

13. 

Diffuse  solar  radiation  on  horizontal  surface  (W/m^) 

0 

14. 

Incidence  angle  on  horizontal  surface  (deg) 

90 

15. 

Total  solar  radiation  on  vertical  surface  (W/m^) 

0 

16. 

Diffuse  solar  radiation  on  vertical  surface  (W/m^) 

0 

17. 

Incidence  angle  on  vertical  surface  (deg) 

90 

18. 

Total  solar  radiation  on  latitude  + 10®  surface 

0 

(W/in2) 


Type  1 Reader  (Contd) 


Test 

No.  Item  Values!./ 

19.  Diffuse  solar  radiation  on  latitude  + 10°  surface  0 

(W/m2) 

20.  Incidence  angle  on  latitude  + 10°  surface  (deg)  90 

21.  Thermal  sky  radiation  (W/n^)  !_/319 

22.  8-14  pm  sky  radiation  (W/m^)  2_/7o 

23.  Cloud  cover  (fraction)  0.00 


\J  Data  are  for  00:00,  7 March  1978,  Phoenix,  Arizona,  as  recorded  by 
the  National  Weather  Service. 

2J  Calculated  following  Id  so  (1981) 


Type  2 Integrator  (INGTR) 


PARAMETERS 

INPUTS 

OUTPUTS 

DERIVATIVES 


- 3 

- up  to  40 
-up  to  40 

- 0 


Test 


No. 

Symbol 

Item 

Value  si./ 

PARAMETERS: 

1. 

N 

Number  of  Inputs 

1 

2. 

t 

Elapsed  time  between  resetting  (hr) 

24 

3. 

Nu 

Unit  number  (needed  by  MEB  to  identify 
accumulators  when  more  than  one  Type  2 
Integrators  are  used) 

7 

INPUTS : 

1. 

Xl 

First  input  to  be  integrated 

1.15459E-4 

2. 

X2 

Second  input  to  be  integrated 

- 

N. 

% 

Last  input  to  be  integrated 

- 

OUTPUTS : 

1. 

Yl 

Integrated  value  of  first  input 

0.727683 

2. 

Y2 

Integrated  value  of  second  input 

- ■ 

N. 

Yn 

Integrated  value  of  last  input 

0.00 

\J  Input  1 and  Output  1 for  the  previous  time  step  were  1.06159E-4  and 
0.328770,  respectively,  and  the  time  step  size  was  3600  seconds.  These 
values  are  from  Time  2 of  the  Simple  Conventional  Greenhouse  example. 


Type  3 Printerl/  (PRNTR) 


PARAMETERS 

INPUTS 

OUTPUTS 

DERIVATIVES 


- 4 

- up  to  40 

- 0 
- 0 


No . Symbol 


Item 


Test 

Values!./ 


PARAMETERS; 

1. 

N 

Total  number  of  Inputs 

12 

2. 

t 

Elapsed  time  between  printouts  (hr) 

1 

3. 

Nc 

Number  of  characters  per  line  of  the  printer 

80 

4. 

Nu 

Unit  number  for  particular  simulation 
(allows  more  than  one  Type  3 Printer  per 
simulation) 

8 

INPUTS 

:2/ 

1. 

Xl 

First  Input  to  be  printed 

78 

2. 

• 

X2 

• 

Second  Input  to  be  printed 

3 

• 

• 

N, 

• 

• 

Xn 

Last  Input  to  be  printed 

0 

)J  See  the  Simple  Conventional  Greenhouse  Example. 

U The  X's  are  labeled  with  a 3-character  mnemonic  supplied  by  the  user 
In  File  MEBDI  (See  the  "Instructions  for  Use"  section). 
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Type  4 Thermostat  (TSTAT) 


PARAMETERS 

- 3 

INPUTS 

- 2 

OUTPUTS 

- 2 

DERIVATIVES 

- 0 

Test 

No.  Symbol  Item  Values!./ 


PARAMETERS: 


1.  Tg 

2.  Nu 

3 . Mode 
INPUTS: 

1.  Ti 

2.  T2 

OUTPUTS: 

tl 


2.  T2 


Set-point  temperature  (®C) 

Unit  number  for  particular  simulation 
(allows  more  than  one  Type  4 Thermostat  per 
simulation) 

1 for  absolute,  2 for  differential 


Temperature  (®C)  (or  other  variable) 

Temperature.  If  Mode  * 2,  differential  Is 
computed  as  T^  - T2. 


0.0  if  Tl  > Tg;  1.0  if  Tl  < Ts;  if  Ti  equals 
or  nearly  equals  Tg,  an  Intermediate  value 
between  0 and  1 Is  computed.  See  detailed 
explanation  in  Type  4 Thermostat  section. 

Use  this  output  for  turning  on  heaters.  If 
mode  * 2,  Ti  - T2  Is  used  In  the  above 
criteria  In  place  of  Ti. 

1 - tl 

Use  this  output  for  turning  on  coolers. 


2 

10 


2 


24.9981 

22.8452 


0.577962 


0.422038 


U 

The  values  of  Inputs  1 and  2 and  Output  1 from  the  previous  Itera- 
tion were  24.9990,  22.6512,  and  0.582289.  The  next  previous  iteration  was 


0.587808. 


Type  5 Greenhouse  (GH) 


PARAMETERS 

INPUTS 

OUTPUTS 

DERIVATIVES 


-50+2  * No.  of  soil  layers 

- 14  + 3 * No.  of  external  devices  that  add  energy  to  the 
greenhouse  air 

- 22  + No.  of  soil  layers  +3  * No.  of  external  devices 
that  add  energy  to  the  greenhouse  air 

-No.  of  soil  layers 


Math  Program 
No . Symbol  S3nnbol 


PARAMETERS : 


Item 


Test 

Value  si./ 


1. 

* 

NP 

2. 

J 

JMAX 

3. 

M 

MMAX 

4. 

n 

N 

5. 

Aj. 

AC 

6. 

h 

AG 

7. 

Aw 

AW 

8. 

Val 

VAI 

9. 

^xc 

CXC 

10. 

Cxg 

CXG 

11. 

Pvg 

RHOV 

12. 

h 

B(l) 

13. 

b2 

B(2) 

No.  of  parameters  (50  + 2 * no.  of  56 

soil  layers)  i 


No.  of  external  devices  which  remove  or  2 
add)  sensible  and/or  latent  heat  from 
greenhouse  air 

No.  of  soil  layers  3 


Index  no.  of  soil  layer  that  receives  0 

energy  from  external  device  (set  M = 0 


if  no  layer  receives  external  energy) 

Area  of  cover  (m^)  67 

Area  of  soil  (m^)  27 

Area  of  wall  which  has  constant  i/9 

properties  (m^) 

Volume  of  air  in  greenhouse  (m^)  73 

Heat  capacity  of  fluid  that  carries  0 

energy  to  cover  (J/kg*C) 

Heat  capacity  of  fluid  that  carries  0 

n*^^  soil  layer  (J/kg*C) 

Reflectance  of  soil  and/or  vegetation  0.13 

for  solar  radiation 

Coefficients  in  Equation  5-19  for  the  U\1 

outside  heat  transfer  coefficient  for 
convection  plus  thermal  radiation 

^ao  = + b2  * Uao  -''s.l 

(h^Q  in  W/m'^  • C and  u^q  in  m/s) 
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Type  5 Greenhouse  (Cont’d) 


Math  Program 

No . Sjmibol  Symbol 


Item 


Test 

Values!./ 


14.  UW  Overall  heat  transfer  coefficient 

in  Equation  5-16  for  unchanging 
wall  (W/m^  • C) 

Parameters  15  through  42  must  correspond  to  particular  values 
of  the  control  variables  for  fluid  flow,  yf,  cover,  y^,  and 
powered  circulation,  yp. 


■Yf  Yc  Yp 


15. 

TSOO 

Transmittance  of  cover  for  solar  0 

radiation 

0 - 

0.66 

16. 

TSOI 

TAUS 

0 

1 - 

0 

17. 

TSIO 

1 

0 - 

0 

• 

00 

TS11_ 

1 

1 - 

0 

19. 

asOO 

Absorptance  of  cover  for  solar  0 

radiation 

0 - 

0.28 

• 

o 

CM 

a SOI 

ALPH 

0 

1 - 

0 

21. 

asio 

1 

0 - 

0 

• 

CM 

CM 

«S11_ 

1 

1 - 

0 

23. 

^alO 

Inside  air  heat  transfer  - 

coefficient  in  Equation  5-20 

- 0 

i/l4 

HAI 

(W/m2  • C) 

24. 

hail_ 

- 

- 1 

i/l4 

25. 

hfO 

HF 

Fluid  heat  transfer 
coefficient  in  Equation  5-21 
(W/m2  . C) 

0 

10000 

26. 

_ 

1 

- 

10000 

• 

CM 

hcoO 

HCO 

Thermal  conductance  for  inner 
cover  material  (W/m^  • C) 

- 

0 

- 1/272 

28. 

^col_ 

- 

1 

0 

29. 

^c  10 

HCI 

Thermal  conductance  for  outer 
material  (W/m^  • C) 

- 

0 

- 1/272 

Type  5 Greenhouse  (Cont’d) 


Math  Program 
No.  Symbol  Symbol 


Item 


Test 

Value&L/ 


Tf  Yc 

30. 

^cil_ 

- 1 

- 

0 

31. 

t>30 

Coefficients  for  infiltration 

- 0 

- 

i/o.l2 

B(3) 

Equation  5-27  for  velocity  of  air 
passing  through  cover 

32. 

^31  _ 

- 1 

- 

0 

33. 

^0 

Uci  = b3  Uao  ^4  ’^1  "^al  “ ^ao  | "*■  ^5 

- 0 

- 

i/o.39 

B(4) 

34. 

Hi  _ 

- 1 

— 

0 

35. 

1^500 

(uqj  in  mm/ s , u^q  ni/a, 

and  Tgj^  and  T^q  in  C 

- 0 

0 

0 

36. 

1^501 

B(5) 

- 0 

1 

Z/O.23 

37. 

^510 

- 1 

0 

0 

38. 

^11_ 

- 1 

1 

0 

39. 

^6 

B(6) 

Coefficients  for  infiltration  Equa- 
tion 5-36  for  velocity  of  air  passing 

- - 

- 

i/o.l2 

i/0.039 

40. 

B(7) 

through  unchanging  wall,  doors,  etc. 

41. 

Ho 

B(8) 

uwl  = ^6  uao  + b7  / 1 Tai  - Tao  | + H 

0 

0 

42. 

^81  _ 

• • 

1 

i/0.23 

43. 

b9 

B(9) 

Coefficients  for  natural  ventilation 
Equation  5-42 

1/9.0 

44. 

Ho 

B(10) 

UN  = (bq  Uao  + ho  J \ Tai^  - Tao  | )Tn 
un  in  volumes/hr,  Uao  iu  m/s,  Tgi^  in 

C) 

7^/4. 5 

45. 

Hi 

B(ll)" 

Coefficients  in  Equation  5-58  for  leaf 
stomatal  resistance  (r^  in  m^s/kg) 

i/lOO 

46. 

Hi 

B(12) 

^/20300 

47. 

hi  3 

B(13)_ 

^v  = hi  h2/(SoTs  + h3) 

i/l7 
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Type  5 Greenhouse  (Cont*d) 


No. 

Math  Program 
Symbol  Symbol 

Item 

Test 

Value  sJL^ 

48. 

RG 

Soil  surface  resistance  to  evaporation  (0  for 
wet  surface,  10000.  for  dry)  (m^s/kg) 

l/lOO 

49. 

Tfi 

TI(MMAX+1) 

Deep  soil  temperature  (C) 

10/21 

50. 

K(MMAX+1 ) 

Deep  soil  thermal  conductance  (W/m^  • c) 

1£/6.25 

51. 

^^1 

K(l) 

Thermal  conductance  of  top  soil  layer 
(W/m2  • C) 

10 /ll 

52. 

CM 

C(l) 

Thermal  capacitance  of  top  soil  layer  plus 
thermal  capacitance  of  1/2  of  second 
(MJ/m2  • C) 

10/0.2 

53. 

^2 

K(2) 

Thermal  conductance  of  second  layer  of 
soil  (W/m2  • C) 

i£/25.0 

54. 

CA2 

C(2) 

Thermal  capacitance  of  1/2  of  second  soil 
layer  plus  1/2  of  third  (MJm2  • C) 

i£/o.3 

55. 

^3 

K(3) 

Thermal  conductance  of  third  layer  of  soil 
(W/m2  • C) 

i£/l2.5 

56. 

CA3 

C(3) 

Thermal  capacitance  of  1/2  of  third  soil 
layer  plus  1/2  of  fourth  (MJ/m2  • C) 

10/0.6 

etc. 

etc. 

etc . 

etc. 

INPUTS: 

1. 

So 

SO 

Total  downcoming  solar  radiation  outside 
(W/m2  of  land  area) 

0 

2. 

'^ao 

UAO 

Outside  wlndspeed  (m/s) 

2.51 

3. 

^ao 

PAO 

Outside  barometric  pressure  (kPa) 

97.91 

4. 

Tao 

TAO 

Outside  air  temperature  (C) 

12.9 

5. 

^ao 

WAO 

Outside  humidity  ratio  (kg/kg) 

0.00818 

6. 

L 

LAI 

Leaf  area  index 

^/2.0 

7. 

Tf 

GAMP 

Control  variable  for  fluid  flow  in  cover 

0 

(0  for  no  flow  to  1 for  max  flow) 


Type  5 Greenhouse  (Cont'd) 


No. 

Math 

Sjnnbol 

Program 

Symbol 

Item 

Test 

Values!./ 

8. 

Yc 

GAMC 

Control  variable  for  cover  properties 
(0  to  1) 

P = Pod  ' Ifc)  + Pi’fc 

0 

9. 

GAMP 

Control  variable  for  powered  air  circulation 
(0  for  off  to  1 for  max  on) 

1 

10. 

yn 

GAMN 

Control  variable  for  natural  ventilation 
(0  for  shut  to  1 for  max  open) 

0 

11. 

TXC 

Temperature  of  fluid  from  external  device 
going  to  cover  (C) 

0 

12. 

^xc 

MXC 

Mass  flow  rate  of  fluid  from  external  device 
going  to  cover  (kg/s) 

0 

13. 

Txg 

TXG 

Temperature  of  fluid  from  external  device  going 
to  the  n*^^  soil  layer  (C) 

0 

14. 

Mxg 

MXG 

Mass  flow  rate  of  fluid  from  external  device 
going  to  the  n^^  soil  layer  (kg/s) 

0 

15. 

Txl 

TX(1) 

Temperature  from  External  Device  1 (C)  going  to 
greenhouse  air 

22.7097 

16. 

^1 

MX(1) 

Mass  flow  rate  from  External  Device  1 (kg/s) 
going  to  greenhouse  air 

0.26 

17. 

Wxl 

WX(1) 

Humidity  ratio  from  External  Device 
(kg/kg)  going  to  greenhouse  air 

0.0107102 

18. 

Tx2 

TX(2) 

Temperature  from  External  Device  2 (C) 

12.9 

19. 

Mx2 

MX(2) 

Mass  flow  rate  from  External  Device  2 
(kg/s) 

0 

20. 

Wx2 

WX(2) 

Humidity  ratio  from  External  Device  2 
(kg/kg) 

0 

21. 

Tx3 

TX(3) 

Temperature  from  External  Device  3 (C) 

- 

etc . 

etc . 

etc . 

etc . 

OUTPUTS : 

1. 

Tai 

TAI 

Greenhouse  air  temp  (C) 

15.4941 
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Type  5 Greenhouse  (Cont’d) 


No. 

Math 

Symbol 

Program 

Symbol 

Item 

Test 

Value  sJL/ 

2. 

Wai 

WAI 

Greenhouse  air  humidity  ratio  (kg/kg) 

0.0107056 

3. 

Tc 

TC 

Greenhouse  cover  temperature  (C) 

13.7605 

4. 

Si 

SI 

Solar  radiation  absorbed  by  greenhouse 
(W) 

0 

5. 

Sc 

SC 

Solar  radiation  absorbed  by  cover  (W) 

0 

6. 

Co 

0UTI(6) 

Convection  and  thermal  radiation  from 
cover  to  outside  (W) 

1544.41 

7. 

Ci 

0UTI(7) 

Convection  and  thermal  radiation  from 
inside  to  cover  (W) 

1544.42 

8. 

^cH 

0UTI(8) 

Infiltration  of  sensible  heat  through 
cover  (W) 

126.208 

9. 

^cE 

0UTI(9) 

Infiltration  of  latent  heat  through 
cover  (W) 

295.412 

10. 

% 

OUTI(IO) 

Natural  ventilation  of  sensible 
heat  (W) 

0 

11. 

Ne 

OUTI(ll) 

Natural  ventilation  of  latent  heat  (W) 

0 

12. 

Cw 

0UTI(12) 

Convection,  conduction,  and  thermal 
radiation  through  wall  (W) 

163.428 

13. 

^wH 

0UTI(13) 

Infiltration  of  sensible  heat  through 
wall  (W) 

15.159 

14. 

^wE 

0UTI(14) 

Infiltration  of  latent  heat  through 
wall  (W) 

35.482 

15. 

Cl 

0UTI(15) 

Surface  soil  heat  flux  (W) 

-254.35 

16. 

Eip 

0UTI(16) 

Evapotranspiration  (kg/s) 

0.133083E-3 

17. 

Xc 

0UTI(17) 

Sensible  heat  added  to  cover  from 
external  device  (W) 

0 

18. 

- 

OUTI(18) 

Cover  fluid  exit  temp  (C) 

27.521 
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Type  5 Greenhouse  (Cont’d) 


No. 

Math 

Symbol 

Program 

Symbol 

Item 

Test 

Values!. 

19. 

0UTI(19) 

Mass  flow  rate  of  the  cover  fluid  (kg/s) 

0 

20. 

Xg 

0UTI(20) 

Sensible  heat  added  to  n^^  soil  layer 
from  external  device  (W) 

0 

21. 

- 

0UTI(21) 

Soil  layer  fluid  exit  temp  (C) 

0 

22. 

OUTI(22) 

Mass  flow  rate  of  fluid  from  n^^  soil 
layer  (kg/s) 

0 

23. 

"^gl 

TI(1) 

Top  soil  layer  temperature  (C) 

16.3505 

24. 

• 

Tg2 

• 

TI(2) 

• 

Second  soil  layer  temperature  (C) 

17.8276 

• 

22+M 

• 

• 

“^gM 

• 

TI(MMAX) 

Deepest  soil  layer  temperature  (C) 

(M  is  the  number  of  soil  layers) 

18.9801 

23+M 

%1 

OUTI(M+23) 

Sensible  heat  added  to  greenhouse 
air  by  External  Device  1 (W) 

1922.79 

24+M 

Mxl 

MX(1) 

Flow  rate  of  External  Device  1 (kg/s) 

0.26 

25+M 

Xei 

OUTI(M+25) 

Latent  heat  added  to  greenhouse  air  by 
External  Device  1 (W) 

2.97 

26+M 

%2 

OUTI(M+26) 

Sensible  heat  added  to  greenhouse 
air  by  External  Device  2 (W) 

0 

27-hM 

Mx2 

MX(2) 

Flow  rate  of  External  Device  2 (kg/s) 

0 

28+M 

Xe2 

0UTI(M+28) 

Latent  heat  added  by  External  Device  2 
(W) 

0 

etc. 

etc . 

etc. 

etc . 

DERIVATIVES 

(INITIAL  VALUES  OF  DEPENDENT  VARIABLES ) tlL/ 

1. 

Tgl 

Top  soil  layer  temperature  (C) 

16 

2. 

• 

Tg2 

• 

Second  soil  layer  temperature  (C) 

18 

• 

• 

M. 

• 

• 

TgM 

Deepest  soil  layer  temperature  (C) 

19 
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Type  5 Greenhouse  (Cont'd) 


\J  Data  were  from  00:00,  7 March  1978,  at  Phoenix,  Arizona.  The  param- 
eters define  a small  fiberglass  greenhouse  with  sand  for  soil  and  tomatoes  for 
the  crop.  It  is  connected  to  a Type  16  Heater  and  a Type  18  Evaporative  Cooler. 

The  values  of  T^i^ , Wai^ » ^c  from  the  previous  iteration  were  15.5003, 

! 0.  0107102,  and  13.7626,  respectively. 

U ASHRAE  (1972,  p.  357)  lists  values  of  b]^  and  b2  of  11  and  3. A, 
respectively.  However,  these  ASHRAE  values  are  for  a smooth  surface  facing 
surroundings  at  the  same  temperature  of  the  air.  To  account  for  a corrugated 
surface  which  sees  a portion  of  cold  sky,  the  ASHRAE  values  were  increased  50 
percent,  to  17  and  5.1  for  b]^  and  b2 , respectively. 

"k!  North  gable  wall  is  metal  spray  chamber  from  eave  height  to  ground. 

ASHRAE  (1972,  p.  357)  lists  a value  of  9.3  W/m^  • C for  the  upward 
surface  conductance  in  still  air  of  a smooth  surface  seeing  surroundings  at  air 
temperature.  To  account  for  the  fact  that  this  is  a rough  vegetative  surface 
which  views  a colder  roof  with  an  angle  factor  (see  discussion  of  Type  14 
Greenhouse)  of  about  1.5  and  that  circulation  fans  are  used  in  the  USWCL 
greenhouses  which  cause  an  average  air  movement  of  about  0.3  m/s,  the  ASHRAE 
value  was  increased  50  percent  to  14.  Use  of  higher  inside  and  outside^./ 
transfer  coefficients  results  in  an  overall  Inside- to-outside  heat  transfer 
coefficient  of  about  9 W/m^  • C,  which  is  close  to  measured  greenhouse  values. 

^ Based  on  thermal  conductivity  of  0.159  W/m  * C and  a half  thickness 
of  0.585  mm  for  Sol-lite  with  Tedlar  from  National  Greenhouse  Company. 

^ CO2  infiltration  tests  done  on  3 August  1978  with  the  USWCL  fiberglass 
greenhouses  gave  an  average  b3  value  of  0.12  (mm/s)/(m/s)  for  the  closed  green- 
house. The  house  (//2)  which  had  only  evaporative  cooler  pads  to  close  the  air 
intake  gave  a value  of  0.71.  Small  circulation  fans  were  on  in  all  greenhouses. 
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When  the  large  cooling  system  fans  were  on  in  the  closed  greenhouse,  average  b5 
to  account  for  the  additional  infiltration  was  0.23.  The  b4  and  b7  values  are 
from  Okada  and  Takakura  (1973). 

U The  bg  value  of  9 (volumes/hr) /(m/s)  is  from  Maher  and  0’ Flaherty 
(1973)  using  the  data  of  Whittle  and  Lawrence  (I960).  The  modeling  data  of 
Kozai  and  Sase  (1978)  ate  about  three  tlmeS  larger  than  Whittle  and  Lawrence, 
but  they  did  compute  changes  from  AT.  The  b]^o  value  of  4.5  comes  from  the 
Kozai  and  Sase  data  reduced  by  a factor  of  three. 

From  the  tomato  data  of  B.  A.  Kimball,  S.  T.  Mitchell,  D.  S.  Jones, 
and  G.  Brooks,  Evaluation  of  C02”enrlched , unventilated,  solar- heated  green- 
houses, 1979  Annual  Report,  U.  S.  Water  Conservation  Laboratory,  Phoenix,  AZ. 

^ Estimated  by  noting  that  the  soil  surface  in  U.  S.  Water  Conservation 
Laboratory  Greenhouse  appeared  wet  except  for  about  10  percent  dry  spots. 

The  soil  is  a wet  sand  with  an  assumed  thermal  conductivity  of 
2 W/m*C  and  volumetric  heat  capacity  of  2.5  MJ/m^  • C (Kimball  and  Jackson, 
1979).  The  depths  Z^,  Z2»  Z3  are  taken  to  be  at  4,  12,  and  28  cm,  respectively, 

and  the  bottom  depth  at  60  cm  (AZ^  = 4,  AZ2  = 8,  a23  = 16,  and  AZ4  = 32  cm, 

respectively).  A bottom  depth  of  60  cm  is  four  times  the  diurnal  damping  depth, 
so  diurnal  storage  is  modeled,  but  not  annual  storage.  The  24  C deep  tempera- 
ture is  the  annual  average  measured  under  U.  S.  Water  Conservation  Laboratory 
Greenhouse  //2.  This  value  of  k^  (Parameter  51)  is  based  on  the  surface  conduc- 
tance for  a smooth  surface  of  9.3  given  by  ASHRAE  (1972,  p.  357)  and  increased 

20%  to  account  for  greater  roughness.  To  satisfy  the  stability  criteria  (see  ' 

"Integration  of  Differential"  section),  the  minimum  time  stop  allowed  for  a 
simulation  is: 

At  < ^A1  = 0.2  X 106/(11  + 25)  = 5556  sec.  = 1.54  hr. 

ki  + k2 
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These  test  values  are  the  Initial  soil  temperatures  for  this  example, 


and  they  correspond  to  a time  of  -1.0  hour  (the  size 
this  example) . The  final  soil  temperatures  for  this 
16.3505,  17.8276,  and  18.9801.  The  temperatures  for 
iterations  were  16.5098,  17.7198,  and  18.9902  C. 


of  the  time  step  for 

time  step  were 

the  next-to-last  derivative 
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Type  6 Fan  or  Pump  (FAN) 


PARAMETERS 

- 1 

INPUTS 

- 4 

OUTPUTS 

- 3 

DERIVATIVES 

- 0 

No . Symbol 


Item 


Test 

Values 


PARAMETERS : 

1. 

INPUTS 

^ax 

Maximum  flow  rate  (kg/s) 

3.7 

1. 

Tl 

Temperature  of  fluid  flowing  in  (“C) 

15.2124 

2. 

Mi 

Flow  rate  flowing  in.  (For  continuity  only.  This 
information  is  not  used.) 

0 

3. 

Wi 

Humidity  ratio  of  fluid  flowing  in 

0.0111212 

4.  Y 

OUTPUTS : 

Control  variable  from  0.0  to  1.0 

0.335500 

1. 

To 

Temperature  of  fluid  flowing  out  (is  set  equal 
to  Ti) 

15.2124 

2. 

Mo 

Flow  rate  coming  out  (=  yMjjj^x)  (kg/s) 

1.24135 

3. 

Wo 

Humidity  ratio  of  fluid  flowing  out  (is  set 
equal  to  Wj^.) 

0.0111212 
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Type  7 Tee  (TEE) 


PARAMETERS  - 1 
i INPUTS  - 7 
! OUTPUTS  - 6 
I DERIVATIVES  - 0 


Mixers 


No. 

Item 

Tee 

Known 

Inlets 

Known 

Outlets 

Diverter 

Test 

Values!./ 

PARAMETERS: 

1. 

Mode 

1 

2 

3 

4 

3 

INPUTS : 

1. 

Temperature  of  stream  1 

Til 

Til 

Til 

Til 

12.9 

2. 

Mass  flow  rate  of  stream 

1 (for  mode  3 inlet  mixer, 
the  flow  rate  of  the  out- 
let mixture  must  be  known 
and  supplied  as  an  Input) 

mu 

mu 

®o 

®11 

1.23632 

3. 

Humidity  ratio  of  stream  1 

Wii 

Wii 

Wii 

Wii 

0.00818 

4. 

Temperature  of  stream  2 

Ti2 

Ti2 

Ti2 

0 

15.2124 

5. 

Mass  flow  rate  of  stream  2 

mi2 

®i2 

0 

0 

0 

6. 

Humidity  ratio  of  stream  2 

Wi2 

Wi2 

Wl2 

0 

0.0111212 

7. 

Control  variable 

(y  = 1 gives  stream  1) 

0 

T 

T 

T 

0 

OUTPUTS : 

1. 

Temperature  of  outlet 
stream  1 

Tol 

Tol 

Tol 

Tol 

15.2124 

2. 

Mass  flow  rate  of  output 
stream  1 (except  mode  3) 

®ol 

®ol 

®il 

®ol 

0 

3. 

Humidity  ratio  of  output 
stream  1 

Wol 

Wol 

Wol 

Wol 

0.0111212 

4. 

Temperature  of  output 
stream  2 

0 

0 

0 

To2 

0 

5. 

Mass  flow  rate  of  output 

0 

0 

®12 

®o2 

1.23632 

stream  2 (except  mode  3) 
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Type  7 Tee  (Contd) 


No. 


Item 


Mixers 

Known  Known  Test 

Tee  Inlets  Outlets  Diverter  Valuesl./ 


6.  Humidity  ratio  of  output  000  Wq2  0 

stream  2 


)J  The  mode  of  3 and  an  Input  2 of  1.23632  define  a mixer  whose  outlet 
flow  rate  is  1.23632.  A control  variable  of  0 (Input  7)  switches  the  outlet 
temperature  (Output  1)  and  humidity  ratio  (Output  3)  to  stream  2.  See  Unit  10 
of  the  Solar  Greenhouse  System  Example. 


Type  8 Sensible  Heat  Exchanger  (SXR) 


PARAMETERS  - 4 
INPUTS  - 5 
OUTPUTS  - 6 
DERIVATIVES  - 0 


No. 


Item 


Mode 


Test 

Values 


PARAMETERS: 

1 . Mode 

2.  Overall  heat  transfer  coefficient 
(W/C)  or  effectiveness  for  Mode  4 

3.  Specific  heat  of  hot  side  fluid 
(J/kg-C) 

4.  Specific  heat  of  cold  side  fluid 
(J/kg-C) 

INPUTS: 

1.  Hot  side  inlet  temperature  (C) 

2.  Hot  side  mass  flow  rate  (kg/s) 

3.  Cold  side  inlet  temperature  (C) 

4.  Cold  side  mass  flow  rate  (kg/s) 

5.  Control  variable  to  convert  average 
to  actual  flow  rates 

OUTPUTS : 

1.  Hot  side  outlet  temperature  (C) 

2.  Hot  side  mass  flow  rate  (kg/s)  (is 
set  = my^i) 

3.  Cold  side  outlet  temperature  (C) 

4.  Cold  side  mass  flow  rate  (kg/s)  (is 
set  = m^i) 

Total  heat  transfer  rate  (W) 


Const . 


Parallel 

Counter 

Cross 

Eff . 

1 

2 

3 

4 3 

UA 

UA 

UA 

E i./5000 

^ph 

Sk 

^ph 

Cph  2/4190 

^pc 

^pc 

^pc 

Cpe  1/1020 

Thi 

Thi 

Thi 

Ty^i  16.9240 

“hi 

“hi 

“hi 

“hi  3.7 

Tci 

Tci 

Tci 

Tci  15.0010 

“ci 

“ci 

“ci 

iiiq  3*7 

Y 

Y 

Y 

Y 1 

Tho 

Tho 

Tho 

Ty^o  16.6067 

“ho 

“ho 

“ho 

“ho  3.7 

^co 

Tco 

Tco 

Tco  16.3043 

“co 

“co 

“co 

“co  3.7 

Qt 

Qt 

Qt 

Qt  4918.65 

5. 


Type  8 Sensible  Heat  Exchanger  (Cont'd) 


Mode 


Test 

Values 


No.  Item 

Parallel  Counter  Cross  Eff . 

6.  Heat  exchanger  effectiveness  E E E E 0.677754 

1/  Representative  of  a coll  that  Is  3.56  m long,  1.00  m high  (24  tubes), 
and  1 tube  row  deep  with  472  flns/m  of  tube  and  with  water  and  air  both  flowing 
at  3.7  kg/s  (crossflow),  as  extracted  from  the  York  Engineering  Guide  for 
Turbofln  Water  Colls  (Borg-Warner  Corp.,  1971). 

2/  Water 
2/  Air 
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Type  9 Latent  and  Sensible  Heat  Exchanger  (LXR) 

PARAMETERS  - 12 

INPUTS  - 8 

OUTPUTS  - 7 

DERIVATIVES  - 0 

Test 

No.  Symbol  Item  Values^/ 

PARAMETERS: 

1.  Mode  1 

1 = all  direct  contact 

2 = direct  contact  only  when  Interface  below  dew  point 

2.  Liquid  flow  direction  -1 


1 = parallel  flow 

-1  = counter  flow 


3. 

^cs 

Cross  sectional  area  (m^) 

4.6 

4. 

£ ^ 

Length  (m) 

0.051 

5. 

c = 

Heat  capacity  of  liquid  (J/kg  * C) 

4190 

6. 

Ci=“ 

Coefficients  for  air  side  mass  transfer  coefficient 

i/37 

7. 

C2- 

i/l.46 

2 , C„  , C^ 

8. 

K a = C.G  ^ in  * 

l^Dm  laL  Dm  2 

^ (^)  ^ 

0 

• 

0 

s m 

m s m s m 

9. 

C4-" 

coefficients  for  liquid  side  heat 

transfer  coefficient 

i/65000 

10. 

C5= 

i/0.4 

C C 

2 C^  C. 

11. 

C6=_ 

•%=c, 

i/o.83 

s m C 

m s m s m 

12. 

Metal  or  structure  resistance  of  Indirect  heat  exchanger 

0 

(s  m^C/J).  If  exchanger  normally  wet,  add  condensate 
resistance  to  Otherwise,  condensate  resistance  assumed 

- 0. 


INPUTS : 

Air  temp  in  (C)  15.2124 
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Type 

No. 

9 Latent 

Symbol 

and  Sensible  Heat  Exchanger  (Contd) 

Item 

Test 

Values!./ 

2. 

Fai 

Air  mass  flow  rate  (kg/s) 

1.24135 

3. 

Wai 

Air  humidity  ratio  in  (kg  H20/kg  air) 

0.0111212 

4. 

Liquid  temp  in  (“C) 

18.4780 

5. 

^1.1 

Liquid  flow  rate  (kg/s) 

1.24135 

6. 

P 

Barometric  pressure  (kPa) 

97.91 

7. 

TL2i 

Initial  guess  of  the  exit  water  temp.  (Note:  can 
connect  to  output  (4)  of  this  routine  so  values  used 
will  be  the  last  ones  computed.) 

18.1788 

8.  Y 

OUTPUTS : 

The  and  Fl.  are  the  average  flow  rates  for 

a simulation  time  increment.  Thus,  y is  the 
control  variable  needed  to  get  actual  flow  rates 
through  the  exchanger  for  the  fraction  of  time  it 
is  in  operation.  The  outputs  are  scaled  to  the 
averages . 

0.335500 

1. 

Taj 

Air  temp  out  (“C) 

15.6681 

2. 

Faj 

Air  flow  rate  (Is  set  = Fg^) 

1.24135 

3. 

Wa2 

Air  humidity  ratio  out  (kg  H20/kg  air) 

0.0114875 

4. 

Liquid  temp  out  (**C) 

18.1519 

5. 

^1-2 

Liquid  flow  rate  (Is  set  = F^^^) 

1.24135 

6. 

Q 

Rate  of  total  energy  transfer  from  water  to  air 
(+)  or  air  to  water  (-)  (J/s) 

5054.64 

7. 

E 

Rate  of  evaporation  (+)  or  condensation  (-)  of 
water  (kg/s) 

0.00135533 

1./  See  Time  0 of  the  Solar  Greenhouse  System  Example.  These  values  are 
for  heating  very  humid  greenhouse  air  at  night  with  a direct  contact  mode  of 
operation,  and  the  program  warns  that  possible  fog  conditions  exist. 

U From  Kimball  et  al.  (1977)  for  aspen  excelsior  pads. 
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Type  10  Solar  Collector  (CLECR) 


PARAMETERS  - 12 

INPUTS  - 8 

OUTPUTS  - 5 

DERIVATIVES  - 0 


No. 


Item 


Mode 


Test 

Values!.^ 


PARAMETERS: 


1. 

Mode 

1 

2. 

Area  (m2) 

A 

3. 

Geometry  factor 

F’ 

4. 

Heat  capacity  (J/kg  • C) 

Cp 

5. 

Absorptance 

a 

6. 

Tr  an  smi  t tanc  e 

T 

7. 

Loss  coefficient  (W/m2  • C) 

Ul 

8. 

No.  of  panes 

0. 

9. 

Emittance  of  plate 

0. 

10. 

Bottom  and  edge  loss 
coefficient  (W/m^  * C) 

0. 

11. 

Tilt  from  horizontal 
(degree) 

0. 

12. 

Extinction  coefficient 

X thickness 

0. 

INPUTS : 

1. 

Inlet  temperature  (®C) 

Ti 

2. 

Mass  flow  rate  (kg/s) 

m 

3. 

Air  temp  (°C) 

4. 

Total  solar  radiation  on 
tilted  collector  surface 
(W/m2) 

Ht 

2 

3 

4 

1 

A 

A 

A 

15 

F* 

F* 

F' 

l/l.O 

Cp 

s 

Cp 

4190 

a 

a 

a 

1/0*91 

T 

0 

0 

1/0.92 

0. 

Ul 

0. 

l/l5 

N 

N 

N 

0 

Ep 

0, 

Ep 

0 

Ube 

0. 

Ube 

0 

S 

0. 

S 

0 

0. 

KL 

KL 

0 

Ti 

Ti 

Ti 

16.5 

m 

m 

m 

0.37 

Ta 

Ta 

Ta 

13.5 

Ht 

Ht 

Ht 

952 

Type  10  Solar  Collector  (Contd) 


Test 

No.  Item  Mode  Values^/ 

5.  Diffuse  solar  radiation  on  0.  0.  Hp  Hp  77 

tilted  collector  surface 

(W/m^) 

6.  Windspeed  (m/s)  0.  W 0.  W 2.76 

7.  Angle  of  incidence  (degree)  0.  0.  0 9 14 

of  beam  radiation 


8.  Control  variable  to  convert  Y Y Y Y 1 

average  to  actual  flow  rate 

OUTPUTS : 

1.  Tq  Outlet  temperature  (°C)  23.2736 

2.  m Mass  flow  rate  (kg/s)  (Is  set  = inlet  value)  0.37 

3.  Q Rate  of  energy  collection  (W)  10500 

4.  U^  Loss  coefficient  (W/m^  • C)  15 

5.  xa  Transmittance  - adsorptance  product  0.8372 


)J  The  parameters  define  a solar  collector  of  the  Rutgers  Type  (Mears, 
et  al . , 1977)  which  consists  of  a black  sheet  of  polyethylene  with  shade  cloth 
absorber  and  has  an  Inflated  tube  made  of  clear  polyethylene  above  and  below  for 
Insulation. 

U Chosen  to  give  a xa  product  close  to  the  0.84  efficiency  factor 
reported  by  Mears  et  al.  (1977). 

Reported  by  Mears  et  al.  (1977). 
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Type  11  Stratified  Fluid  Tank  with  Internal  Heater  (TANK) 


PARAMETERS  - 12 

INPUTS  - 6 

OUTPUTS  - 8 

DERIVATIVES  - UP  to  10 


No . Symbol 
PARAMETERS: 

1.  N 

2.  V 

3.  H 

Cpf 

5.  pf 

6.  U 

7.  To 

8*  Qhe 

9.  I 

10 . Jl  >ji 

^set 

12.  n 

INPUTS : 

1-  Tin 


Item 


Number  of  sections  (=  No.  of  derivatives) 

Volume  (m^) 

Height  of  tank  (m) 

Specific  heat  of  fluid  (J/kg) 

Density  of  fluid  (kg/m^) 

Heat  loss  coefficient  (W/m^  • C) 

Initial  average  tank  temp  (C) 

Max.  capacity  of  Internal  resistance 
heater  (W) . (Set  = 0 if  not  using  heater.) 

Number  of  section  from  top  where  heater  is 
located 

Number  of  section  from  top  where  internal 
thermostat  is  located 

Internal  thermostat  setting  (C) 

Flag  to  indicate  whether  external  control 
variable  is  to  be  used. 

(1  = yes,  0 = no) 


Temperature  from  heat  source  (C) 
Flow  rate  from  heat  source  (kg/s) 


Values!./ 


1 

63 


1.5 


4190 

1000 


0.1 


18.5 

0 

1 

1 

0 

0 


18.1519 

1.24135 
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Type  11  Stratified  Fluid  Tank  with  Internal  Heater  (Cont'd) 


No.  Symbol  Item 

Values!/ 



3.  Tl  Cold  temperature  coming  from  load  (C) 

18.4780 

4.  mL  Flow  rate  from  load  (kg/s) 

0 

^env  Temperature  of  environment  (C) 

12.9 

6.  YhE  External  control  variable  (0  if  PARI(12)  = 0). 

Vary  from  0 to  1 to  vary  heater  output  from  0 
to  Qjje. 

OUTPUTS : 

0 

1.  Tfj  Temp  to  heat  source  from  bottom  of  tank  (C) 

18.4780 

2.  1%  Flow  rate  to  heat  source  (kg/s) 

1.24135 

3.  Tj  Temp  to  load  from  top  of  tank  (C) 

18.4780 

4.  m^  Flow  rate  to  load  (kg/s) 

0 

Qenv  Heat  loss  to  environment  (W) 

66.0770 

Qtank  Heat  delivered  from  tank  to  load  (W) 

0 

7.  AE  Change  in  stored  heat  since  Initial  time  (J) 

5.81321E6 

8.  Qj  Heat  delivered  to  tank  from  heater  (W) 

DERIVATIVES  (INITIAL  VALUES  OF  DEPENDENT  VARIABLES):!./ 

0 

1.  Temperature  of  top  tank  section  (C) 

2.  Temperature  at  second  tank  section  (C) 

• 

• 

18.5 

• 

N.  Temperature  of  bottom  tank  section  (C) 

JL/  See  time  0.0  for  Solar  Greenhouse  System  Example. 

- 

U This  test  value  of  18. 5C  is  the  initial  tank  water  temperature  for  this 
example,  which  corresponds  to  a time  of  -1.0  hours  (the  size  of  the  time  step 
for  this  example).  The  final  tank  temperature  for  this  example  was  18.4780C, 
and  for  the  next-to-last  derivative  iteration  it  was  also  18.5. 


324 


Type  12  Time  Dependent  Forcing  Function  (TIMFN) 


PARAMETERS  - UP  TO  99 

INPUTS  - 0 

OUTPUTS  - 2 

DERIVATIVES  - 0 


No . Symbol 

PARAMETERS: 

1.  Np 

2.  to 

3.  Fo 

4.  ti 

5.  Fi 

6.  t2 

7 . F2 

8.  t3 

9.  F3 

10.  t4 

11.  F4 

• • 

• • 

• • 

2N+2 . tjj 

2N+3 . Fjj 

OUTPUTS : 

1.  F 

2.  (1.  - 


Item 


The  total  number  of  parameters,  2N+3 , where  N is 
one  less  than  the  total  number  of  defining  points 

Time  of  first  given  point  (elapsed  time  in  hr 
after  start  of  simulation) 

Function  value  of  first  given  point 

Time  of  second  given  point  (hr) 

Function  value  of  second  given  point 

Time  of  third  point 

Function  value  of  third  point 

Time  of  fourth  point 

Function  value  of  fourth  point 

Time  of  fifth  point 

Function  value  of  fifth  point 

Time  of  end  of  cycle  = time  of  last  given  point  (hr) 
Function  value  of  last  given  point 

The  function  value  at  the  present  value  of  TIME 
F) 


Test 

Value  si./ 


13 

0 


0.0 


6 


0.0 


6 


1.0 


18 


1.0 


18 


0.0 


24 


0.0 


0 

1 


\J  This  set  of  parameters  produces  a "0"  for  Output  1 from  0 to  6 and  18 
to  24  hours  from  the  start  of  the  simulation  and  a "1"  from  6 to  18  hours. 


Type  13  Infinite  Volume  Storage  Reservoir  (RSVOR) 


PARAMETERS 

INPUTS 

OUTPUTS 

DERIVATIVES 


- 1 more  than  number  of  outputs 

- 0 

- up  to  80 

- 0 


No . Symbol 


Item 


Test 

Values 


PARAMETERS : 

1.  Np  Total  number  of  parameters  4 

2.  Pi  0.0 

3.  P2  0.8 

• 

Np.  Pp_i  0.2 

OUTPUTS ; 

1.  The  value  of  P^  0.0 

2.  The  value  of  P2  0.8 


. . Pp_i 


0.2 
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Type  14  Complicated  Greenhouse  (CGH) 


PARAMETERS 

INPUTS 

OUTPUTS 

DERIVATIVES 

Math 

No . Symbol 
PARAMETERS: 

1.  J 

2.  Ac 

3.  Ag 

Vai 

5.  £ 

6.  s 

7 • Nc 


10.  p 

8 

11.  s 


12.  eg 

13.  Eg 

• ^xc 

‘^xg 


- 76 

- 21  + 3 * No.  of  external  devices 

- 46  + 3 * No.  of  external  devices 

- 0 

Program 

Symbol  Item 


UMAX  No.  of  external  devices  which  add  (or 
remove)  sensible  and/or  latent  heat 
from  greenhouse  air 

AC  Area  of  cover  (m^) 

AG  Area  of  soil  (m^) 

VAI  Volume  of  air  in  greenhouse  (nP) 

LNV  Length  of  row  of  vegetation  (m) 

RSV  Row  spacing  (must  not  =•  0)  (m) 

NE  Number  of  vegetation  rows  per  individual 

curtain  heat  exchanger  (must  not  = 0,  Set 
equal  to  1.0  if  not  using  exchanger). 

HTE  Maximum  height  of  curtain  heat  exchanger 

RHOV  Reflectance  of  vegetation  for  solar 

radiation 

RHOG  Reflectance  of  soil  for  solar  radiation 

EPV  Emlttance  of  vegetation  for  thermal 

radiation 

EPG  Emlttance  of  soil  for  thermal  radiation 

EPED  Emlttance  of  dry  curtain  heat  exchanger 

for  thermal  radiation 

CXC  Heat  capacity  of  fluid  that  carries 
energy  to  cover  (J/kg  * C) 

CXG  Heat  capacity  of  fluid  that  carries  energy 
to  soil  storage  layer  (J/kg  * C) 


Test 

Values!.^ 


2 


62 

27 

73 


5.0 


1.0 


1 


0 

0.13 

0.16 

0.98 

0.95 

0 

0 


0 


Type  14  Complicated  Greenhouse  (Cont’d) 


No. 

Math  Program 

Symbol  Symbol 

Item 

Test 

Value  si./ 

16. 

^xe 

CXE 

Heat  capacity  of  fluid  that  carries 
energy  to  curtain  heat  exchanger  (J/kg  * C) 

0 ' 

i 

17. 

h ■ 

B(l) 

Constants  in  equation  for  outside 
transfer  coefficient  hQ  = b]^  + b2U^Q 

5.7 

18. 

^2  _ 

B(2) 

(h^  in  W/m^  • c,  Ugo  ®/s) 

3.8 

19. 

b3 

B(3) 

Constants  In  equation  for  inside  transfeg 
coefficient  from  temp.  diff.  hj^  = b3(AT)  ^ 

1.5  ' 

i 

20. 

^4  _ 

[ B(4) 

(hj^  in  W/m2  • C,  T in  C) 

0.33 

t 

! 

21. 

^5  ■ 

B(5) 

Constants  in  equation  for  natural 

I 

9.0  i 

22. 

^6 

B(6) 

ventilation  through  ventilators 
(when  Yn  = 1) 

4.5  i 

1 

23. 

^7  _ 

B(7) 

= (^5^ao  ^6  + by)  Yn 

(ujj  in  volumes/hr,  u^q  in  m/s, 

Tai  and  Tao  in  C) 

0 ! 

24. 

^8  " 

B(8) 

Coefficients  in  equation  for  leaf  stomatal 
resistance,  bg  and  b^Q  must  not  equal  zero. 

100  1 

1 

25. 

bg 

B(9) 

rv  = bg  + bg/CS^Ts  + bio) 

20300 

26. 

ho_ 

B(10) 

(r^  in  m^s/kg,  Sq  in  W/m^) 

17 

. 

CM 

RSOIL 

Soil  surface  resistance  to  evaporation 
(0  for  wet  surface,  10000.  for  dry) 

(m^s/kg) 

100 

28. 

hpl 

HPOWR 

Inside  heat  transfer  coefficient  when  power 
circulation  fan  is  on  (Yp  = 1) 

(W/m^  • C) 

6 

1 

29. 

XRM 

Maximum  rated  output  capacity  of  infrared 
heater  (W) 

0 

! 

1 

30. 

f 

FR 

Fraction  of  energy  from  infrared  heater  that 
is  radiant 

0 1 

! 
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Type  14  Complicated  Greenhouse  (Cont'd) 


Math  Program 
No.  Symbol  Symbol 


Item 


Test 

Values!/ 


Parameters  31  through  76  must  correspond  to  particular  values  of  the  control 
variables  for  fluid  flow,  outer  cover,  inner  cover,  and  powered 

circulation,  Yp» 


^f  ^co  ''^cl 


31. 

TScoO 

TAUSO 

Transmittance  of  outer 

cover  for  solar 

0 

0.66 

32. 

^Scol  _ 

radiation 

- 

1 

- 

0 

33. 

■^SciOO 

0 

- 

0 

1.00 

34. 

■^SciOl 

TAUSI 

Transmittance  of  inner 
cover  for  solar 

0 

- 

1 

0 

35. 

■^ScilO 

radiation 

1 

- 

0 

0 

36. 

'^Scill_ 

1 

- 

1 

0 

37. 

^^ScoO 

ALSO 

Absorptance  of  outer 
cover  for  solar 

- 

0 

- 

0.24 

38. 

^‘Scol  _ 

radiation 

- 

1 

0 

0 

39. 

“SciOO 

0 

- 

0 

0.00 

40. 

“SciOl 

ALSI 

Absorptance  of  inner 
cover  for  solar 

0 

- 

1 

0 

41. 

“ScilO 

radiation 

1 

- 

0 

0 

42. 

“Sclll_ 

1 

- 

1 

0 

43. 

UcOO 

0 

- 

0 

160 

44. 

UcOl 

UC 

Thermal  conductance  of 
space  between  covers 

0 

- 

1 

0 

45. 

UclO 

(W/m^  • c) 

1 

- 

0 

0 

46 . 

Ucll  _ 

1 

- 

1 

0 

47. 

^RcoO 

TOO 

Transmittance  of  dry 
outer  cover  for  thermal 

- 

0 

- 

0.07 

48. 

^Rcol  _ 

radiation 

- 

1 

- 

0 

49. 

■^RciOO 

0 

- 

0 

1.00 

50. 

'^RciOl 

TOI 

Transmittance  of  dry 
inner  cover  for  thermal 

0 

- 

1 

0 

51. 

■fRcllO 

radiation 

1 

- 

0 

0 
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Math 

Program 

Test 

No. 

Symbol 

Symbol 

Item 

Values^./ 

Yf 

Yco 

Ycl 

52. 

‘TRcillJ. 

1 

- 

1 

0 

53. 

^cooO 

Emlttance  of  outer  side 

- 

0 

- 

0.87 

ECOOD 

of  outer  cover  for  thermal 

54. 

^cool  _ 

radiation 

— 

1 

— 

0 

55. 

^colO 

Emlttance  of  Inner  side 

- 

0 

- 

0.87 

ECOID 

of  outer  cover  for 

56. 

®coil  _ 

thermal  radiation 

— 

1 

— 

0 

57. 

^cioOO 

0 

- 

0 

0.00 

58. 

^cioOl 

ECIOD 

Emlttance  of  outer  side 
of  Inner  cover  for 

0 

- 

1 

0 

59. 

^ciolO 

thermal  radiation 

1 

— 

0 

0 

60. 

^clolL. 

1 

- 

1 

0 

61. 

^cliOO 

0 

- 

0 

0.00 

62. 

^ciiOl 

ECIID 

Emlttance  of  Inner  side 
of  Inner  cover  for 

0 

- 

1 

0 

63. 

^ciilO 

thermal  radiation 

1 

— 

0 

0 

64. 

^ciill- 

1 

- 

1 

0 

Ycl 

65. 

l>1100 

0 

0 

0.12 

66. 

hioi 

B(ll) 

0 

1 

0.12 

67. 

hiio 

- 

1 

0 

0 

68. 

Mill  _ 

Coefficients  for  Infiltration 

1 

1 

0 

Equation  14-111  for  velocity 

69. 

M2OO 

of  air  passing  through  cover 

0 

0 

0.039 

70. 

M2OI 

B(12) 

0 

1 

0.039 

71. 

M2IO 

'^cl  ” Ml^ao'*'M2  ^ ^al“^ao 
(UfT  mm/s,  u^^  in  m/s 

bi3 

1 

0 

0 

72. 

M2II  _ 

and  T . and  T In  C) 

al  ao 

1 

1 

0 
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Math 

Program 

Test 

No. 

Symbol 

Symbol 

Item 

Values!./ 

-< 

I 

73. 

h300 

0 0 

0.0 

74. 

h301 

B(13) 

0 1 

0.23 

75. 

h310 

1 0 

0 

76. 

h311_ 

1 1 

0 

INPUTS: 

1. 

So 

ST 

Total  downcoming  solar  radiation  outside 
(W/n^  of  land  area) 

0.0 

2. 

^ao 

RA 

Sky  thermal  radiation  (W/m^  of  land  area) 

319 

3. 

^ao 

UAO 

Outside  wlndspeed  (m/s) 

2.51 

4. 

Pao 

PAO 

Outside  barometric  pressure  (kPa) 

97.91 

5. 

Tao 

TAO 

Outside  air  temperature  (C) 

12.9 

6. 

Wao 

WAO 

Outside  humidity  ratio  (kg/kg) 

0.00818 

7. 

y 

HTV 

Height  of  row  of  vegetation  (m);  set  = 0 
for  no  veg 

0.8 

8. 

w 

WDV 

Width  of  row  of  vegetation  (m)  (0  to  rg^) 

0.2 

9. 

yf 

GAM(l) 

Control  variable  for  fluid  flow  In  cover 
(0  for  no  flow  to  1 for  maximum  flow) 

0 

10. 

^co 

GAM(2) 

Control  variable  for  outer  cover  properties 
(0  to  1) 

0 

11. 

Yci 

GAM(3) 

Control  variable  for  Inner  cover  properties 
properties  (0  to  1) 

0 

12. 

GAM(4) 

Control  variable  for  powered  air 
circulation 

1 

13. 

y'ff 

GAM(5) 

Control  variable  for  natural  ventilation 
(0  for  shut  to  1 for  max  open) 

0 

14. 

Ye 

GAM(6) 

Control  variable  for  curtain  heat  exchanger 

0 

Type  14  Complicated  Greenhouse  (Cont’d) 


No. 

Math 

Symbol 

Program 

Symbol 

Item 

Test 

Value  sJi/ 

15. 

Yr 

GAM(7) 

Control  variable  for  infrared  heater 

0 

16. 

"^xc 

TXC 

Temperature  of  fluid  from  external  device 
going  to  cover  (C) 

0 

17. 

^c 

MXC 

Mass  flow  rate  of  fluid  from  external 
device  going  to  cover  (kg/s) 

0 

18. 

"^Xg 

TXG 

Temperature  of  fluid  from  external  device 
going  to  soil  storage  (C) 

0 

19. 

MXG 

Mass  flow  rate  of  fluid  from  external 
device  going  to  soil  storage  (kg/s) 

0 

20. 

"^xe 

TXE 

Temperature  of  fluid  from  external  device 
going  to  curtain  heat  exchanger  (C) 

0 

21. 

^e 

MXE 

Mass  flow  rate  of  fluid  from  external  device 
going  to  curtain  heat  exchanger  (kg/s) 

0 

22. 

Txl 

TX(1) 

Temperature  from  external  device  1 (C) 

15.2708 

23. 

Mxl 

MX(1) 

Mass  flow  rate  from  external  device  1 (kg/s) 

0 

24. 

Wxl 

WX(1) 

Humidity  ratio  from  external  device  1 (kg/kg) 

0.0111667 

25. 

Tx2 

TX(2) 

Temperature  from  external  device  2 (C) 

15.7195 

26. 

Mx2 

MX(2) 

Mass  flow  from  external  device  2 (kg/s) 

1.23632 

27. 

Wx2 

WX(2) 

Humidity  ratio  from  external  device  2 (kg/kg) 

0.0115277 

etc. 

etc. 

etc. 

etc. 

OUTPUTS : 

1. 

^co 

GH(1) 

Outer  cover  temperature  (C) 

12.8986 

2. 

^ci 

GH(2) 

Inner  cover  temperature  (C) 

13.1032 

3. 

Tv 

GH(3) 

Vegetation  temperature  (C) 

15.0948 

4. 

Tgo 

GH(4) 

Soil  surface  temperature  (C) 

16.9943 

5. 

Te 

GH(5) 

Curtain  heat  exchanger  temperature  (C) 

-3.7584 

6. 

Tai 

GH(6) 

Greenhouse  air  temperature  (C) 

15.2124 
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No. 

Math 

Symbol 

Program 

S5mibol 

Item 

Test 

Value  si./ 

7. 

Wai 

GH(7) 

Greenhouse  air  humidity  ratio  (kg/kg) 

0.0111212 

8. 

Tgs 

GH(8) 

Soil  storage  temperature  (C) 

21.1545 

9. 

Sco 

SCO 

Solar  radiation  absorbed  by  outer 
cover  (W) 

0 

10. 

^ci 

SCI 

Solar  radiation  absorbed  by  inner  cover  (W) 

0 

11. 

Sv 

SV 

Solar  radiation  absorbed  by  vegetation  (W) 

0 

12. 

Sg 

SG 

Solar  radiation  absorbed  by  soil  (W) 

0 

13. 

^con 

0UTI(13) 

Net  thermal  radiation  for  outer  cover  (W) 

-2030.93 

14. 

^in 

0UTI(14) 

Net  thermal  radiation  for  inner  cover  (W) 

0 

15. 

0UTI(15) 

Net  thermal  radiation  for  vegetation  (W) 

-59.8733 

16. 

Rgn 

0UTI(16) 

Net  thermal  radiation  for  soil  (W) 

-354.716 

17. 

^en 

0UTI(17) 

Net  thermal  radiation  for  curtain  heat 
exchanger  (W) 

-12.5058 

18. 

^coH 

0UTI(18) 

Sensible  heat  convected  from  outer  cover 
(W) 

-1.3173 

19. 

^coE 

0UTI(19) 

Latent  heat  convected  from  outer  cover  (W) 

0 

20. 

^ciH 

0UTI(20) 

Sensible  heat  convected  to  inner  cover  (W) 

784.607 

21. 

^ciE 

0UTI(21) 

Latent  heat  convected  to  inner  cover  (W) 

1245.00 

22. 

CvH 

OUTI(22) 

Sensible  heat  convected  from  vegetation 
(W) 

-38.0849 

23. 

CvE 

OUTI(23) 

Latent  heat  convected  from  vegetation  (W) 

-21.7827 

24. 

^gH 

OUTI(24) 

Sensible  heat  convected  from  soil  (W) 

288.666 

25. 

^gE 

OUTI(25) 

Latent  heat  convected  from  soil  (W) 

351.514 

26. 

CeH 

OUTI(26) 

Sensible  heat  convected  from  curtain 
heat  exchanger  (W) 

-6.1465 

Type  14  Complicated  Greenhouse  (Cont’d) 


No. 

Math 

Symbol 

Program 

Symbol 

Item 

Test 

Value  si./ 

27. 

CeE 

OUTI(27) 

Latent  heat  convected  from  curtain  heat 
exchanger  (W) 

-6.3593 

28. 

IH 

OUTI(28) 

Sensible  heat  lost  by  infiltration  (W) 

103.132 

29. 

OUTI(29) 

Latent  heat  lost  by  Infiltration  (W) 

316.904 

30. 

% 

OUTI(30) 

Sensible  heat  lost  by  natural  ventilation 
(W) 

0 

31. 

Ne 

0UTI(31) 

Latent  heat  lost  by  natural  ventilation 
(W) 

0 

32. 

Gc 

GC 

Conduction  from  inner  to  outer  cover  (W) 

2029.63 

33. 

Go 

OUTI(33) 

Surface  soil  heat  flux  (W) 

-994.902 

34. 

GsO 

0UTI(34) 

Soil  heat  flux  leaving  bottom  of  upper 
layer  (W) 

62.5664 

35. 

Gsd 

0UTI(35) 

Soil  heat  flux  entering  top  of  bottom 
semi-infinite  region  (W) 

62.5742 

36. 

U 

OUTI(36) 

Overall  coefficient  of  heat  transmission 
including  thermal  IR  (W/m^  • c) 

20.0654 

37. 

Xc 

OUTI(37) 

Sensible  heat  added  to  cover  from  external 
device  (W) 

0 

38. 

— 

OUTI(38) 

Cover  fluid  exit  temperature  (C) 

26.2064 

39. 

^xc 

OUTI(39) 

Mass  flow  rate  of  cover  fluid  (kg/s) 

0 

40. 

Xg 

0UTI(40) 

Sensible  heat  added  to  soil  storage 
from  external  device  (W) 

0 

41. 

— 

0UTI(41) 

Soil  storage  fluid  exit  temperature  (C) 

42.3089 

42. 

^8 

0UTI(42) 

Mass  flow  rate  of  fluid  from  storage 
(kg/s) 

0 

43. 

Xe 

OUTI(43) 

Sensible  heat  added  to  the  curtain  heat 
exchanger  from  external  device  (W) 

0 

44. 

— 

OUTI(44) 

Curtain  heat  exchanger  fluid  exit 
temperature(C) 

-7.5168 
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No. 

Math 

Symbol 

Program 

Symbol 

Item 

Test 

Value  si./ 

45. 

Mxe 

OUTI(45) 

Mass  flow  rate  of  fluid  from  curtain 
heat  exchanger  (kg/s) 

0 

46. 

% 

XR 

Energy  output  from  the  infrared  heater 

(W) 

0 

47. 

%1 

OUTI(47) 

Sensible  heat  added  by  external  device 
(W) 

1 

0 

48. 

MXI 

MX(1) 

Flow  rate  of  external  device  1 (kg/k) 

0 

49. 

Xei 

OUTI(49) 

Latent  heat  added  by  external  device  1 

(W) 

0 

50. 

%2 

0UTI(50) 

Sensible  heat  added  by  external  device 
(W) 

2 

643.273 

51. 

%2 

MX(2) 

Flow  rate  of  exteraal  device  2 (kg/s) 

1.23632 

52. 

Xe2 

0UTI(52) 

Latent  heat  added  by  external  device  2 

(W) 

1238.54 

etc. 

etc. 

etc. 

etc. 

ADDITIONAL 

INFORMATION 

FOR  SOIL  CONDUCTION  TRANSFER  FUNCTIONS: 

M 

MMAX 

Maximum  number  of  conduction  transfer 
functions 

11 

Go 

» ^o*"^ 

GSOLD(l) 

Soil  heat  flux  at  top  of  soil  for  previous 
step  (W,  positive  downward) 

-500 

Gs0,to-1 

GS0LD(2) 

Soil  heat  flux  at  top  of  semi-infinite 
region  for  previous  time  step  (W,  positive 
downward) 

-500 

Br 

BR 

Common  ratio 

0.72749 

Td 

TD 

Temperature  at  great  depth  in  the  soil 

(C) 

18 

B41 

BRP(4,1) 

First  thermal  response  factor  for 
semi-infinite  region 

17.34 

m 

I 

Index  for  previous  time  steps 

1 

Blm 

BRF(1,I) 

Conduction  transfer  functions 

39.3336 

B2m 

BRF(2,I) 

Conduction  transfer  functions 

0.0018 

BSm 

BRF(3,I) 

Conduction  transfer  functions 

46.6613 

I 

I 

I 

I 

I 

I 
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Math  Program  Test 

No.  Symbol  Symbol  Item  Values!./ 

^go,t  -(mfl)6  TGOLD(I)  Soil  surface  temperature  at  the  tQ-nri-l 

* ° time  step  (C)  (omit  for  m = 1) 

Tgg^^.  -(nrfl)6  TGSOLD(I)  Soil  temperature  at  top  of  semi-infinite  - 

* ° region  for  the  tQ-m+1  time  step  (C) 

(omit  for  m = 1) 

repeat  for  all  m 

!_/  Data  were  from  0600,  11  December  1978,  at  Phoenix,  Arizona.  The  param- 
eters define  a small  fiberglass  greenhouse  with  tomatoes  for  the  crop.  The 
"soil"  is  30  cm  of  sand  overlying  loam  (Kimball  1983).  The  greenhouse  is  a 
component  of  solar  greenhouse  system  as  illustrated  in  figure  28  and  discussed 
in  the  "Example"  section.  See  table  1 for  an  explanation  of  parameter  choices. 

U The  initial  or  "old"  values  of  T^^q,  T^,^,  T^,  Tg,  Tg,  T^^,  Wg^,  and 
Tgg  were  12.9268,  13.1346,  15.1485,  17.0116,  -3.68257,  15.2708,  0.0111667, 
and  21.1545,  respectively. 
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Type  15  Simple  Greenhouse  (SGH) 


PARAMETERS 

INPUTS 

OUTPUTS 

DERIVATIVES 


- 18 

- 8 + 2*  No.  of  external  devices 

- 6 
- 0 


Math  Program 
No . Symbol  Symbol 


Item 


Test 

Value si/ 


PARAMETERS: 

1. 

J 

JMAX 

Number  of  external  devices  which  contribute 
enthalpy 

1 

2. 

Ac 

AC 

Area  of  cover  (m^) 

62 

3. 

^8 

AG 

Area  of  soil  (m^) 

27 

4. 

Val 

VAI 

Volume  of  air  Inside  (m^) 

73 

5. 

for 

fx 

■YN  = 0: 

FL 

Fraction  of  ventilation  heat  removal  that 

Is  latent  (0  to  almost  1.  Must  not  =1) 

0.5 

6 . 

b2 

B2 

Coefficients  In  equation  for  natural 

i/o.23 

7. 

b3 

B3 

ventilation 

i/0.08 

UN  = b2  + b3  uao 

Ufj  In  air  changes  per  hour  and  Ugo  s 

for 

yn  = 

8. 

b2 

B2 

ti 

o 

• 

o 

9. 

b3 

B3 

1/9.0 

10. 

^Max 

ARMAX 

Maximum  air  changes  per  hour  with  fan 
ventilation 

156 

11. 

n 

ETA 

Saturation  efficiency  of  evaporative 
cooler  (fraction) 

0.75 

12. 

p 

vg 

RHOV 

Average  reflectance  of  crop  and  soil  for 
solar  radiation 

1/0.14 

for 

Yc  = 0: 

13. 

TS 

TAUS 

Transmittance  of  cover  for  solar 
radiation 

1/0.66 

Type  15  Simple  Greenhouse  (Cont'd) 


I 


No. 

Math 

Symbol 

Program 

Symbol 

Item 

Test 

Values!./ 

14. 

^0 

BO 

Coefficients  in  equation  for  U 

i/8.8 

15. 

1>1 

B1 

U = bo  + bi  uao 

(U  in  W/m^  • C and  u^q  in  m/s) 

4/1.6 

for 

Tc  ~ ^ • 

16. 

TS 

TAUS 

Transmissivity  of  cover 

1/0.66 

17. 

^0 

BO 

Coefficients  in  equation  for  U 

i/8.8 

18. 

^1 

B1 

i/1.6 

INPUTS : 

1. 

So 

ST 

Total  downcoming  solar  radiation 
(W/m2  of  land  area) 

0 

2. 

'^ao 

UAO 

Outside  wlndspeed  (m/s) 

2.51 

3. 

^ao 

PAO 

Barometric  pressure  (kPa) 

97.91 

4. 

Tao 

TAO 

Outside  dry  bulb  (C) 

12.9 

5. 

^wb 

TWBO 

Outside  wet  bulb  (C) 

11.5 

6. 

Tc 

GAMC 

Control  variable  for  cover  properties 
(0  to  1)  P = Pod  - Yc)  + Pi(Yc) 

0 

7. 

GAMP 

Control  variable  for  powered  ventilation. 

0 for  fans  off,  1 for  fans  on 

0 

8. 

tn 

GAMN 

Control  variable  for  natural  ventilation. 

0 for  shut,  1 for  maximum  open 

0 

9. 

Txl 

XIN(9) 

Temperature  from  external  device  1 (C) 

23.2892 

10. 

Mxl 

XIN(IO) 

Mass  flow  rate  from  external  device  1 (kg/ s) 

0.26 

11. 

Tx2 

XIN(ll) 

Temperature  from  external  device  2 (C) 

- 

12. 

Mx2 

XIN(12) 

Mass  flow  rate  from  external  device  2 
(kg/s) 

- 

etc 

. etc . 

etc. 

etc . 
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No. 

Math 

Symbol 

Program 

Symbol 

Item 

Test 

Value  sJl/ 

OUTPUTS : 

1. 

Tal 

TAI 

Greenhouse  temperature  (C) 

15.4280 

2. 

Si 

SI 

Solar  radiation  absorbed  In  greenhouse  (W) 

0 

3. 

ZX 

j ^ 

SUMX 

Total  external  heat  supplied  to  greenhouse 
(W) 

2084.78 

4. 

c 

0UTI(4) 

Conduction  out  through  cover  Including  IR 
(W) 

2008.74 

5. 

- 

0UTI(5) 

Sensible  heat  removed  by  ventilation  (W) 

38.02 

6. 

V 

0UTI(6) 

Total  sensible  plus  latent  heat  removed  by 
ventilation  (W) 

76.04 

U Data  were  from  00:00,  7 March  1978,  at  Phoenix,  Arizona.  The  param- 
eters define  a small  conventional  fiberglass  greenhouse,  as  discussed  In  the 
Example"  section  and  Illustrated  In  figure  17. 

U From  Whittle  and  Lawrence  (1960) 

1./  Measured  In  USWCL  Greenhouse  Number  2 

hJ  Measured  In  USWCL  Greenhouse  Number  2.  Corresponding  values  suggested 
by  American  Society  of  Agricultural  Engineers  EP406  (1982)  are  8.3  and  0.0  for 
a fiberglass  greenhouse  3 m In  height  and  with  an  Infiltration  rate  of  one  air 


change  per  hour 


Type  16  Heater  (HEATR) 


PARAMETERS  - 3 
INPUTS  - 4 
OUTPUTS  - 3 
DERIVATIVES  - 0 


No. 

Sjnnbol 

Item 

Test 

Value  slL/ 

PARAMETERS: 

1. 

^ax 

Maximxim  total  heating  capacity  of  heater  (W) 

6850 

2. 

^ax 

Maximum  mass  flow  rate  of  Internal  fan  of  heater 
(kg/ s) 

0.26 

3. 

^ax 

Maximum  rate  of  water  vapor  addition  (kg/s) 

0.0 

INPUTS 

• 

• 

1. 

Tai 

Temperature  of  air  entering  (°C) 

15.4280 

2. 

Mai 

Mass  flow  rate  of  air  entering  (for  continuity 
only) 

0 

3. 

Wai 

Humidity  ratio  of  air  entering  (kg/kg) 

0 

4. 

Y 

Control  variable 

0.301498 

OUTPUTS : 

1. 

Ta2 

Temperature  of  exit  air  (°C) 

23.3318 

2. 

Ma2 

Mass  flow  rate  of  air  (kg/s) 

0.26 

3. 

Wa2 

Humidity  ratio  of  exit  air  (kg /kg) 

0 

From  Time  0 of  Simple  Greenhouse  Example 
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Type  17  Night  Sky  Radiator  with  Insulating  Air  Layer  (NSRAD) 

PARAMETERS  - 1 7 

INPUTS  - 9 

OUTPUTS  - 8 

DERIVATIVES  - 0 

Test 

No.  Symbol  Item  Valuesl./ 


PARAMETERS : 


1. 

L 

Length  of  radiator  (m) 

15 

2. 

W 

Width  of  radiator  (m) 

2 

3. 

Constants  in  equation  for  outside  convection  heat 
transfer  coefficient,  ho  = bo  biu^  where  ho  in 
W/m^  • C and  u^  in  m/s. 

i/5.7 

4. 

bl 

i/3.8 

5. 

^2 

Constants  in  equation  for  inside  transfer 

coefficient  h]^  = b2(AT)^  where  h]^  is  W/m^  • C 
and  AT  in  °C. 

i/1.5 

6. 

b3 

i/0.33 

7. 

b4 

Constant  in  equation  for  water  transfer 
coefficient  h£(W/m°C)  = b4  (AT)®*^^ 

i/230 

8. 

^cw 

Transmittance  of  cover  for  thermal  radiation 
in  8-14pm  atmospheric  window  (unused  when  mode  = 2 
or  3) 

i/o.85 

9. 

TCO 

Transmittance  of  cover  outside  window  (unused 
when  mode  = 2 or  3) 

i/0.80 

10. 

Pew 

Reflectance  of  cover  in  window  (unused  when 
mode  =2  or  3) 

i/0.08 

11. 

Pco 

Reflectance  of  cover  outside  window  (unused 
when  mode  = 2 or  3) 

i/o.o8 

12. 

^SW 

Emittance  of  surface  in  window  (unused  when 
mode  =3) 

i/o.92 

13. 

^so 

Emittance  of  surface  outside  window  (unused 
when  mode  =3) 

i/0.05 

Type  17  Night  Sky  Radiator  with  Insulating  Air  Layer  (Cont'd) 
No.  Symbol  Item 


Test 
Value  si./ 


14.  M 


15.  n 

16.  N 

17.  (t«)5 

INPUTS; 

1-  Ta 

2.  F 

3. 

^aw 

5.  Sa 

6.  Ug 

7 • Pao 

8 • Tao 

9.  Wao 
OUTPUTS : 

Tjij 

2.  F 


Mode: 

Set  = 1 for  case  of  transparent  cover  over 
insulating  air  layer 

Set  = 2 for  case  of  no  insulating  air  layer. 

Then  program  will  set  hj^  = 500  W/m^  * C for 
"infinite  convection  between  layers." 

Set  = 3 case  of  water  pond,  ^co*  hxamidity 
ratio  at  cover  surface  will  be  set  at  saturation 
value,  and  = 0 and  p^,^,  = 0.04  for 

water.  and  CgQ  = 0.96,  same  as  cover. 

Set  = 1 to  get  segment-by-segment  summary 
printed,  otherwise  0. 

Total  number  of  segments 

Effective  transmittance-absorptance  product  for 
solar  radiation 


Entering  water  temp  (°C) 

Water  flow  rate  (kg/s) 

Total  long-wave  sky  radiation  (W/m^) 

8-14pm  sky  radiation  (W/m^) 

Solar  radiation  impinging  on  radiator  (W/m^) 
Outside  windspeed  (m/s) 

Barometric  pressure  (kPa) 

Outside  dry  bulb  temp  (°C) 

Outside  humidity  ratio  (kg/kg) 


Exit  water  temp  (C) 

Water  flow  rate  (*  inlet  flow  rate  (kg/s)) 


1 


0 

1 


0.5 


24.999 

0.154553 

398 

87 

0 

1.80 

97.19 

29.9 

0.0102400 

22.8452 

0.154553 


i 


I 


I 
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Type 

17  Night 

Sky  Radiator  with  Insulating  Air 

Layer  (Cont’d) 

Test 

No, 

Symbol 

Item 

Valuesi./ 

3. 

Tc 

Average  cover  temperature  (C) 

29,2557 

4. 

Ts 

Average  surface  temperature  (C) 

23,7772 

5, 

Q 

Total  rate  of  enthalpy  change  of 

the  water  (W) 

-1394,75 

6. 

^c 

Net  radiation  (W) 

-1888,03 

7. 

H 

Sensible  heat  (W) 

242,369 

8. 

E 

Latent  heat  (W) 

0 

U This  example  is  for  a radiator  with  high  emittance  in  atmospheric 
window  and  low  emittance  outside  the  window.  It  is  covered  with  polyethylene. 
The  weather  Inputs  are  from  00:00,  25  August  1978,  for  Phoenix,  Arizona, 

ZJ  From  the  McAdam’s  expression  (Duffie  and  Beckman,  1974,  p,  83), 

U From  ASHRAE  (1972,  p,  40) 

A./  From  Duffle  and  Beckman’s  (1974,  p,  81)  Equation  4,11,8  for  water  with 
the  transfer  being  to  a single  plate.  The  minimum  value  would  be  about  60  for 
thermal  conduction  across  1 cm  of  water, 

ZJ  From  Catalanottl  et  al,  (1975,  Fig,  5)  for  polyethylene 
A/  Godbey  et  al,  (1979)  measured  an  average  thermal  transmittance  value 
for  polyethylene  of  0,80,  which  basically  agrees  with  Catalanottl  et  al,ZJ 
Bailey  (1981),  on  the  other  hand,  measured  0,85  for  the  average  transmittance, 
but  also  he  measured  an  average  emittance  of  0,12,  Taking  the  values  of  Godbey 
et  al,  and  Catalanottl  et  al,  for  transmittance  and  Bailey's  value  for  the 
emittance  yields  0,08  for  the  average  reflectance,  which  should  be  relatively 
independent  of  wavelength  (unlike  emittance). 


Type  17  Night  Sky  Radiator  with  Insulating  Air  Layer  (Cont’d) 


~ U From~torriaotr~arS”walton~(T978y~foT”t^lte~paint~^ith~a~high~Ti02~~ 

content  (although  Michell  and  Biggs  (1979)  later  showed  that  tgQ  = 0.82  for 
TIO2  paint). 


Type  18  Evaporative  Air  Cooler  (COOLR) 


PARAMETERS  - 2 
INPUTS  - 5 
OUTPUTS  - 4 
DERIVATIVES  - 0 


No.  Symbol 


Item 


PARAMETERS ; 

^ax  Maximum  air  mass  flow  rate  (kg/s) 

2.  n Effectiveness  or  saturation  efficiency  (no  units, 

is  a fraction). 


INPUTS : 

1-  Tdi 

2.  M£ 

3 . T^i 

4.  Y 

5.  P 
OUTPUTS : 

1 • ^do 

2.  Mo 

3.  Wo 

4.  E 


Inlet  dry  bulb  temperature  (C) 

Inlet  mass  flow  rate.  Unused.  For  continuity 
only. 

Inlet  wet  bulb  temperature  (C) 

Control  variable 
Barometric  pressure  (kPa) 

Outlet  dry  bulb  (C) 

Outlet  mass  flow  rate  (kg/s) 

Outlet  humidity  ratio  (kg/kg) 

Evaporation  rate  (kg/s) 


\J  Data  were  from  1200,  7 March  1978,  at  Phoenix,  Arizona. 


Test 

Values!./ 


3.7 

0.75 

18.8 

0.1976 

13.4 

0.053144 

98.20 

14.75 

0.196633 

0.0093255 

0.332733E-3 

The  cooler 


was  connected  to  a Type  5 Greenhouse. 


Type  19  Rock  Bed  (ROCK) 


PARAMETERS 

8 

INPUTS 

- 

10 

OUTPUTS 

11  + No.  of  segments 

DERIVATIVES  - 

No.  of  segments 

Test 

No. 

Symbol 

Item 

Valuesl/ 

PARAMETERS : 

1. 

N 

Number  of  segments 

5 

2. 

L 

Length  (height)  of  rock  bed  (m) 

Ul 

3. 

A 

Cross-sectional  area  of  rock  bed  (m^) 

y4o 

4. 

s 

Length  of  perimeter  around  rock  bed  (m) 

U32 

5. 

Dr 

Equivalent  diameter  of  individual  rocks  (m) 

1/0.019 

6 . 

Crv 

Effective  volumetric  heat  capacity  of  rocks 
including  void  space  (J/m^  • C) 

1/4. 7E5 

7. 

U 

Loss  coefficient  (W/m^  • c) 

1/0.4 

8. 

K 

Effective  axial  thermal  conductivity 
(W/m  • C) 

1/0.3 

INPUTS 

; 

1. 

Tal 

Temperature  of  air  entering  top  (C) 

15.2209 

2. 

Ft 

Mass  flow  rate  entering  top  (kg/s) 

0 

3. 

Wal 

Humidity  ratio  of  air  entering  top  (kg/kg) 

0.00672648 

4. 

Ta(N+l) 

Temperature  of  air  entering  bottom  (C) 

15.2209 

5. 

Fb 

Mass  flow  rate  entering  bottom  (kg/s) 

1.61114 

6 . 

Wa(N+l) 

Humidity  ratio  of  air  entering  bottom  (kg/kg) 

0.00672648 

7. 

The  and  are  the  average  flow  rate  for  a 

simulation  time.  These  y's  are  the  air  flow 

0 

8. 

Yb 

rate  control  variables  needed  to  get  actual 
flow  rates  through  the  rock  bed  for  the  frac- 
tion of  time  it  is  in  operation.  Then  the 
exit  temperature  and  humidity  ratios  are 
scaled  to  the  average  flow  rates. 

0.947728 

9. 

P 

Barometric  pressure  (kPa) 

97.40 
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Type  19  Rock  Bed  (Cont’d) 


No.  Symbol 


Item 


Test 

Value al/ 


10.  Tg 


Temperature  of  environment  surrounding  rock 
bed  (C) 


OUTPUTS : 

Ta(N+l) 

2.  Ft 

3-  Wa(N+l) 

Tai 

5.  Fb 

6.  Wai 

7.  Qt 

8.  Et 

9.  Qb 

10.  Eb 

1 1 • Qenv 

12.  Tri 

13.  Tr2 

14.  Tt3 

15.  Tr4 


Temperature  of  air  leaving  bottom  (C) 

Mass  flow  rate  of  air  entering  top  and  leaving 
bottom  (kg/s) 

Humidity  ratio  of  air  leaving  bottom  (kg/kg) 

Temperature  of  air  leaving  top  (C) 

Mass  flow  rate  of  air  entering  bottom  and 
leaving  top  (kg/s) 

Humidity  ratio  of  air  leaving  top  (kg/kg) 

Total  rate  of  energy  addition  to  bed  by  stream 
entering  top  (W) 

Rate  of  water  condensation  from  stream  entering 
top  (kg/s) 

Total  rate  of  energy  addition  to  bed  by  stream 
entering  bottom  (kg/s) 

Rate  of  water  condensation  from  stream  entering 
bottom  (kg/s) 

Heat  loss  to  the  environment  (W) 

Temperature  of  top  rock  segment  (C) 

Temperature  of  second  rock  segment  (C) 
Temperature  of  third  rock  segment  (C) 
Temperature  of  fourth  rock  segment  (C) 


ll+N  T 


rN 


Temperature  of  bottom  rock  segment  (C) 


4.2 


15.2209 

0 

0.00672648 

19.5766 

1.61114 

0.00672648 

0 

0 

-7740.47 


-.90E-8 


717.851 

19.5767 

17.6453 

15.8027 

14.8890 

14.1490 


Type  19  Rock  Bed  (Cont'd) 


No.  Symbol 


Item 


DERIVATIVES  (INITIAL  VALUES  OF  DEPENDENT  VARIABLES):!./ 

1 . Tj.]^  Temperature  of  top  rock  segment  (C) 

2.  Tr2  Temperature  of  second  rock  segment  (C) 

3.  Tj.3  Temperature  of  third  rock  segment  (C) 

4.  Tj.4  Temperature  of  fourth  rock  segment  (C) 


Test 

Values!./ 


20 

18 

16 

15 


N 


"^rN 


Temperature  of  bottom  rock  segment  (C) 


14 


\J  From  Wlllits  et  al.  (1979,  1981). 

U From  Kimball  and  Jackson  (1979),  assuming  the  rock  bed  would  have  a 
thermal  conductivity  similar  to  dry  sand. 

!./  These  test  values  are  the  initial  temperatures  for  this  example, 
which  correspond  to  a time  of  -0.25  hour  (the  size  of  the  time  step  for  this 
example).  The  final  temperatures  for  this  time  step  were  19.5767,  17.6453, 
15.8027,  14.8890,  and  14.1490C.  The  temperatures  for  the  next-to-last 
derivative  Iteration  were  19.5693,  17.6079,  15.8046,  14.8016,  and  14.2499  C. 
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Type  20  Arithmetic  Calculator  (ARITH) 


PARAMETERS 

INPUTS 

OUTPUTS 

DERIVATIVES 


- up  to  99 

- up  to  40 

- 2 
- 0 


No. 


Item 


Test 

Value  si./ 


PARAMETERS: 

1.  Number  of  parameters 

2 . Number  of  inputs 

3.  1st  operation  code.  (If  this  parameter  is  not  equal  to 
0 or  -1,  ARITH  will  put  2 inputs  in  the  stack  and 
perform  the  indicated  operation.) 

4.  2nd  operation  code 

5. 

6. 


etc.  etc. 

The  operation  codes  are: 

-1  - put  next  parameter  on  stack  for  use  as  a constant 

0 - put  next  input  on  stack  (enter) 

1 - multiply 

2 - divide 

3 - add 

4 - subtract 

5 - exponentiate 

6 - logio 

7 - negate 

8 - change  negative  number  to  zero 

9 - logical  "OR"  (choose  largest) 

10  - logical  "AND"  (choose  smallest) 


6 

1 

0 


-1 


0.4 


1 
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Type  20  Arithmetic  Calculator  (Cont'd) 


No.  Symbol 

Test 

Item  Valuesl./ 

INPUTS: 

1.  Xi 

2.  X2 

etc.  etc. 

OUTPUTS: 

1.0 

1.  Y 

The  result  of  the  arithmetic  operations  on  the  0.4 

Inputs. 

2.  1-Y 

This  gives  an  output  of  opposite  value  for  0.6 

control  logic. 

\J  This  set  of  parameters  multiplies  the  Input  1 (1.0)  by  0.4  to  give 
Output  1 equal  to  0.4. 
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Type  21  On-Off  Thermostat  (OSTAT) 


PARAMETERS 

INPUTS 

OUTPUTS 

DERIVATIVES 

No.  Symbol 


PARMETERS  5 


1.  Tg  Set-point  temperature  (C)  20 

2.  Mode  1 for  absolute,  2 for  differential  1 

INPUTS s 

1.  T]^  Temperature  (C)  (or  other  variable)  25 

2.  T2  Temperature  (C).  If  Mode  = 2,  differential  is  25 

computed  as  Tj^  ’“'^2* 

OUTPUTS ; 

1.  Tfi  0 If  Ti  > T3  ; 1 If  Ti  < 0 

Use  this  output  for  turning  on  heaters.  If 


mode  = 2,  Tj^  - T2  is  used  in  the  above  criteria  in 
place  of  T]^. 

Y2  1 - Yi 

Use  this  output  for  turning  on  coolers. 


Item 


Test 

Values—' 


2 


1 


Type 


PARAMETERS 

INPUTS 

OUTPUTS 

DERIVATIVES 


- no.  of  set 

- 1 

- no.  of  set 

- 0 


22  Multistage  Thermostat  (MSTAT) 
points  + 2 
points  * 2 


No. 

Symbol 

Item 

Test 

Value  si./ 

PARAMETERS: 

1.  Np 

Total  number  of  parameters  = N + 2 where  N is  the 
number  of  set  points. 

7 

2. 

T 

^m 

A master  set  point  that  divides  heating  from 
cooling.  It  should  be  in  the  dead  band  between 
heating  and  cooling.  If  have  only  heating  (or 
only  cooling),  T^  can  be  given  a value  above  (or 
below)  all  the  other  set  points. 

20 

3. 

T 

^si 

Lowest  set  point  for  lowest  (coldest)  stage  of 
heating 

13 

4. 

T 

S2 

Second  lowest  set  point 

15.5 

5. 

• 

Ts3 

Third  lowest  set  point 

24 

• 

N+1 

“^sCN-l) 

Second  highest  set  point 

26.5 

N+2 

Tsn 

Highest  set  point 

29.5 

INPUTS : 

1. 

T 

Input  temperature  (or  other  variable) 

15.2124 

OUTPUTS : 

1. 

Yhl 

Heater  control  variable  for  lowest  stage 
(=  1 when  T < Tg^) 

0 

2. 

Ycl 

1 - Yhl  opposite  logic  for  lowest  stage  cooler 
control  variable) 

1 

3. 

yh2 

Heater  control  variable  for  second  lowest  stage 

0.335500 

4. 

Yc2 

1 - Yh2 

0.664500 

5. 

Yh3 

Heater  control  variable  for  third  lowest  stage 

1 

6. 

Yc3 

1 - lCh3 

0 
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Type  22  Multistage  Thermostat  (Cont'd) 


Test 

No.  Symbol  Item  Values!./ 

2N-3  Yh(N-l)  Heater  control  variable  for  second  highest  stage  1 

2N-2  Yc(N-l)  1 ■ Yh(N-l)  0 

2N-1  YhN  Heater  control  variable  for  highest  stage  1 

2N  YcN  1 “ YhN  ® 


]J  These  parameters  define  a thermostat  with  heating  stages  of  13  and 
15.5  C and  cooling  stages  of  24,  26.5,  and  29.5  C.  The  input  for  the  previous 
Iteration  was  15.2708.  The  second  stage  heater  outputs  for  the  previous  and 
second  previous  iterations  were  0.334141  and  0.33387,  respectively.  See  Time  0 
for  the  Solar  Greenhouse  System  Example. 


Type  23  Curtain  Heat  Exchanger  (CXR) 


PARAMETERS 

INPUTS 

OUTPUTS 
DERIVATIVES  - 

- 2 

- 5 

- 6 
- 0 

No.  Sjnnbol 

Test 

Item  Values 

PARAMETERS : 


1.  A 

Heat  exchange  area  (m^)  jL/l20 

2.  U 

Overall  heat  transfer  coefficient  (W/m^  • c)  Ul 

INPUTS : 


1-  Tai 

Temperature  of  air  in  space  where  curtain  41.4789 

exchanger  is  hung  (C) 

2.  ma 

Air  mass  flow  rate  (unused  - for  continuity  1.0 

only) 

3.  Wai 

Humidity  ratio  of  air  in  space  where  curtain  heat  0.0 

exchanger  is  hung 

•H 

• 

Inlet  water  temperature  (C)  25.5107 

5. 

Water  flow  rate  (kg/s)  3.7 

OUTPUTS : 


^ • ^ao 

Temperature  of  air  in  imaginary  outlet  air  stream  28.6754 

2.  m^ 

Imaginary  outlet  air  flow  rate  (kg/s)  1.0 

(m^  = 1 if  m^£  > 0;  otherwise  m^  = 0) 

3.  Wao 

Humidity  ratio  of  imaginary  outlet  air  stream  0.0 

(Wao  = Wji) 

^ * "^wo 

Outlet  water  temperature  (C)  26.3530 

5 . m^Q 

Water  flow  rate  (kg/s)  (m^^o  = i\fi)  3.7 

6.  Q 

Rate  of  heat  transfer  from  air  to  water  (W)  13059.5 

\J  Represents  5 curtains,  each  6 m long  by  2 m high. 

U As  measured  in  USWCL  test  greenhouse  at  12:50  on  12  Sep  79  with  no 
forced  air  movement. 
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Type  24  Passive  Storage  (PSTOR) 


PARAMETERS  - 4 
INPUTS  - 3 
OUTPUTS  - 5 
DERIVATIVES  - 1 

Test 


No.  Symbol 

Item 

Values 

PARAMETERS: 

1.  A 

Total  heat  exchange  area  (m^) 

1/59 

2.  U 

Overall  heat  transfer  coefficient  (W/m^  • c) 

2/4 

3.  M3 

Total  mass  of  storage  material  (kg) 

1/2200 

^S 

Specific  heat  of  storage  material  (J/kg  * C) 

1/4190 

INPUTS : 

1-  Tai 

Temperature  of  air  in  space  where  storage  is 
located  (C) 

11.2292 

2 . mg 

Air  mass  flow  rate  (unused  - for  continuity 
only) 

1.0 

3-  «al 

Humidity  ratio  of  air  in  space  where  storage  is 
located 

0.00652753 

OUTPUTS : 

1 • "^ao 

Temperature  of  air  in  imaginary  outlet  air 
stream 

12.6664 

2 . mg 

Imaginary  outlet  air  flow  rate  (=  1 kg/s) 

1.0 

3-  Wao 

Humidity  ratio  of  imaginary  outlet  air 
stream  (Wg^  = Wg^) 

0.0065275 

4.  Tg 

Storage  temperature  (C) 

17.4409 

5.  Q 

Rate  of  heat  transfer  from  air  to  storage  (W) 

-1465.97 

DERIVATIVES  (INITIAL  VALUE  OF  DEPENDENT  VARIABLE):!./ 

!•  Tg  Temperature  of  storage  material  (C)  ‘ 18.0 

1 - - - 

I i./  Stack  of  3.785  liter  (1  gallon)  plastic  bottles  as  described  in  USWCL 

j 1980  Annual  Report  for  Greenhouse  1.  There  were  576  bottles  to  give  81  liters 
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Type  24  Passive  Storage  (Cont'd) 


of  water  per  of  greenhouse  floor  area.  The  overall  dimensions  of  the 
stack  were  1.3  m wide  by  1.9  m long  by  2.0  m high,  so  45%  of  the  stack  was 
water.  Eight  percent  of  the  stack  was  wood,  leaving  47%  air. 

2/  From  ASHRAE  (1972,  p.  357)  for  horizontal  heat  flow  from  still  air  to 
vertical  surface  reduced  by  1/2  because  interior  bottle  surfaces  view  each 
other  and  because  air  flow  to  the  interior  is  restricted  by  long  passages. 

2/  This  test  value  of  18.0  C is  the  initial  temperature  for  this  example, 
which  corresponds  to  a time  of  -1.0  hour  (the  size  of  the  time  step  for  this 
example).  The  final  temperature  for  this  time  step  was  17.4409C.  The  tempera- 
ture for  the  next-to-last  derivative  iteration  was  17.3987  C. 
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